Question

Дан массив, состоящий из целых чисел. Напишите программу, которая выводит те элементы массива, которые являются чётными числами. Входные данные Сначала задано число N — количество элементов в массиве (1N100). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел. PASCAAAALLLL Даю 35 баллов

Answer 1

Ответ:

var n,i:integer;

a:array [1..100] of integer;

begin

readln(n);

for i := 1 to n do read(a[i]);

writeln;

for i := 1 to n do if a[i] mod 2 = 0 then write(a[i]:4)

end.

Answer 2

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 a.Where(p -> p.IsEven).Println

end.

Answer 3

Благодарю вас за предоставленную информацию. Вот пример программы на языке Pascal, который решает вашу задачу:

pascalCopy code
program EvenNumbers;

var
  N, i, num: integer;

begin
  // Ввод количества элементов массива
  readln(N);

  // Создание массива
  var arr: array[1..100] of integer;

  // Ввод элементов массива
  for i := 1 to N do
    read(arr[i]);

  // Вывод четных элементов массива
  writeln('Четные числа в массиве:');
  for i := 1 to N do
  begin
    num := arr[i];
    if num mod 2 = 0 then
      writeln(num);
  end;
end.

Эта программа сначала считывает количество элементов массива N. Затем она создает массив arr с размером 100 (максимальное значение N). После этого она считывает N чисел и сохраняет их в массиве. Затем программа проходит по каждому элементу массива и проверяет, является ли число четным. Если число четное, оно выводится на экран.

Пожалуйста, обратите внимание, что в Pascal индексация массивов начинается с 1, поэтому в программе использован диапазон [1..100] для массива arr. Вы можете изменить этот диапазон, если ваши массивы имеют другой размер.

Надеюсь, эта информация будет полезной! Если у вас возникнут еще вопросы, не стесняйтесь задавать.