Question

Pascal Задан массив чисел. Найти номера четных элементов и вывести их на экран.

Answer 1

Pascal

const

 n=20;

var

 a : array [0..n] of integer;

 i : integer;

begin

 randomize;

 writeln('Массив A');

 for i:=0 to n-1 do begin

   a[i] := random(100);

   write(a[i], '  ');

 end;

 writeln();

 for i:=0 to n-1 do

   if a[i] mod 2 = 0 then begin

     writeln('a[', i,']=',a[i]);

   end;

end.

Answer 2

Для решения этой задачи на языке программирования Pascal, вам нужно сначала создать массив чисел, затем перебрать его элементы и вывести номера четных элементов. Вот пример кода:

pascalCopy code
program FindEvenNumbers;

const
  N = 10; // Задайте размер массива по вашему желанию
  
var
  Numbers: array[1..N] of Integer;
  i: Integer;

begin
  // Заполняем массив случайными числами (можете изменить на свои значения)
  Randomize;
  for i := 1 to N do
    Numbers[i] := Random(100); // Генерируем случайные числа от 0 до 99

  // Выводим исходный массив на экран
  writeln('Исходный массив:');
  for i := 1 to N do
    write(Numbers[i], ' ');

  writeln; // Переходим на новую строку

  // Ищем четные элементы и выводим их номера
  writeln('Номера четных элементов:');
  for i := 1 to N do
  begin
    if Numbers[i] mod 2 = 0 then // Проверяем, является ли элемент четным
      write(i, ' ');
  end;

  readln; // Ждем, пока пользователь нажмет Enter
end.

В этом коде мы создаем массив Numbers, заполняем его случайными числами и затем перебираем элементы массива, проверяя, являются ли они четными (Numbers[i] mod 2 = 0). Если элемент четный, мы выводим его номер на экран.