Question

Массив из 15 элементов заполнить случайными числами от 0 до 50 и вывести на экран количество четных элементов.
Pascal

Answer 1

Программа:

Pascal:

var

 arr: array[1..15] of integer;

 i, count: integer;

begin

 for i := 1 to 15 do begin

   arr[i] := random(50);

   if arr[i] mod 2 = 0 then inc(count);

 end;

 writeln(arr, #10, 'Количество чётных элементов: ', count);

end.