Question

Пожалуйста,помогтме решить задачи на Pasсal. Во всех задачах массив состоит из 10 элементов и задаётся из интервала от 1 до 99. 1.Написать программу, которая выводит на экран все четные элементы массива и их количество. 2.Написать программу, которая выводит на экран все двузначные элементы массива и их количество. 3.Написать программу, которая выводит на экран сначала все четные элементы, а потом нечетные (по индексу). .Написать программу, которая выводит на экран сначала все четные элементы, а потом нечетные (по значению). 5.Написать программу, которая выводит на экран количество элементов оканчивающихся на 5.

Answer 1

1. var a: array[1..10] of integer;
          i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] mod 2=0 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
2. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] > 9 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
3. var a: array[1..10] of integer;
    i: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
4. var a: array[1..10] of integer;
    i, r: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  i := 1;
  while i < 10 do
    if a[i+1] < a[i] then begin
      r := a[i+1];
      a[i+1] := a[i];
      a[i] := r;
      i := 1;
    end else i := i + 1;
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
5. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 10 = 5 then kol := kol + 1;
  writeln(kol);
End.

Answer 2

Конечно, вот примеры программ на Pascal для решения ваших задач:

1. Вывод четных элементов и их количество:

pascalCopy code
program EvenElements;
var
  arr: array[1..10] of integer;
  i, evenCount: integer;
begin
  evenCount := 0;

  for i := 1 to 10 do
  begin
    arr[i] := Random(99) + 1;
    if arr[i] mod 2 = 0 then
    begin
      writeln(arr[i]);
      evenCount := evenCount + 1;
    end;
  end;

  writeln('Количество четных элементов: ', evenCount);
end.

2. Вывод двузначных элементов и их количество:

pascalCopy code
program TwoDigitElements;
var
  arr: array[1..10] of integer;
  i, twoDigitCount: integer;
begin
  twoDigitCount := 0;

  for i := 1 to 10 do
  begin
    arr[i] := Random(99) + 1;
    if (arr[i] >= 10) and (arr[i] <= 99) then
    begin
      writeln(arr[i]);
      twoDigitCount := twoDigitCount + 1;
    end;
  end;

  writeln('Количество двузначных элементов: ', twoDigitCount);
end.

3. Вывод четных и нечетных элементов по индексу:

pascalCopy code
program EvenOddByIndex;
var
  arr: array[1..10] of integer;
  i: integer;
begin
  for i := 1 to 10 do
  begin
    arr[i] := Random(99) + 1;
  end;

  writeln('Четные элементы по индексу:');
  for i := 1 to 10 do
  begin
    if arr[i] mod 2 = 0 then
      writeln('arr[', i, '] = ', arr[i]);
  end;

  writeln('Нечетные элементы по индексу:');
  for i := 1 to 10 do
  begin
    if arr[i] mod 2 <> 0 then
      writeln('arr[', i, '] = ', arr[i]);
  end;
end.

4. Вывод четных и нечетных элементов по значению:

pascalCopy code
program EvenOddByValue;
var
  arr: array[1..10] of integer;
  i: integer;
begin
  for i := 1 to 10 do
  begin
    arr[i] := Random(99) + 1;
  end;

  writeln('Четные элементы по значению:');
  for i := 1 to 10 do
  begin
    if arr[i] mod 2 = 0 then
      writeln(arr[i]);
  end;

  writeln('Нечетные элементы по значению:');
  for i := 1 to 10 do
  begin
    if arr[i] mod 2 <> 0 then
      writeln(arr[i]);
  end;
end.

5. Вывод количества элементов, оканчивающихся на 5:

pascalCopy code
program CountEndingWith5;
var
  arr: array[1..10] of integer;
  i, endingWith5Count: integer;
begin
  endingWith5Count := 0;

  for i := 1 to 10 do
  begin
    arr[i] := Random(99) + 1;
    if arr[i] mod 10 = 5 then
      endingWith5Count := endingWith5Count + 1;
  end;

  writeln('Количество элементов, оканчивающихся на 5: ', endingWith5Count);
end.

Эти программы создают массив, выполняют необходимые операции и выводят результаты на экран.