Question

Помогите, пожалуйста! Определить четные числа в массиве в программе PascalABC и все это вывести на экран.

Answer 1

Var

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

i:integer;

begin

for i:=1 to 10 do

begin

a[i]:=random(101);

if a[i] mod 2 = 0 then

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

end;

end.

Answer 2

Конечно, я могу помочь с этим! Вот пример программы на PascalABC, которая определяет четные числа в массиве и выводит их на экран:

pascalCopy code
program FindEvenNumbers;
const
  MAX_SIZE = 10; // Максимальный размер массива

var
  numbers: array[1..MAX_SIZE] of integer;
  i, count: integer;

begin
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to MAX_SIZE do
  begin
    write('numbers[', i, ']: ');
    readln(numbers[i]);
  end;

  // Поиск и вывод четных чисел
  writeln('Четные числа в массиве:');
  count := 0; // Счетчик четных чисел
  for i := 1 to MAX_SIZE do
  begin
    if numbers[i] mod 2 = 0 then
    begin
      writeln(numbers[i]);
      count := count + 1;
    end;
  end;

  // Вывод количества четных чисел
  writeln('Всего четных чисел: ', count);

  readln;
end.

В этой программе объявляется массив numbers размером MAX_SIZE, который может быть изменен по вашему усмотрению. Затем пользователю предлагается ввести элементы массива, и после этого программа ищет и выводит на экран все четные числа, а также выводит общее количество найденных четных чисел.

Программа ожидает ввода элементов массива через консоль. Вы можете запустить программу в среде PascalABC и ввести значения самостоятельно для проверки.