Question

Дан массив, состоящий из целых чисел. Напишите программу, которая выводит те элементы массива, которые являются чётными числами. ПАСКАЛЬ ПОЖАЛУЙСТА​

Answer 1

program v8;

var a:array[1..30] of integer;

 n,i:integer;

begin

 writeln('Введите размерность матрицы: '); readln(n);

randomize;

for i:=1 to n do a[i]:=random(100)-50;

for i:=1 to n do write(a[i]:5); writeln;

writeln('Четные элементы матрицы: ');

for i:=1 to n do  

 begin

 if a[i] mod 2=0 then writeln(a[i]);

 end;

end.

Answer 2

Конечно, вот пример программы на Pascal, которая выводит четные элементы массива:

pascalCopy code
program EvenNumbers;
var
  arr: array of integer;
  i: integer;
begin
  // Определяем размер массива
  SetLength(arr, 10); // Замените 10 на желаемый размер массива
  
  // Заполняем массив произвольными значениями
  for i := 0 to High(arr) do
    arr[i] := Random(100); // Генерируем случайное число от 0 до 99, замените 100 на желаемый диапазон чисел
  
  // Выводим четные элементы массива
  writeln('Четные элементы массива:');
  for i := 0 to High(arr) do
  begin
    if arr[i] mod 2 = 0 then
      writeln(arr[i]);
  end;
end.

В этой программе мы сначала определяем массив arr и его размер, затем заполняем его случайными значениями (в данном случае, числами от 0 до 99). Затем мы перебираем элементы массива и выводим только четные числа, используя оператор деления по модулю (mod 2).