Дан массив из 15 целых чисел заполнен случайными числами от 30 до 90 Подсчитать...

Question

Дан массив из 15 целых чисел заполнен случайными числами от 30 до 90 Подсчитать колличество элементов массива которые делятся на 2

Answer 1

{ FreePascal }
program test;
var
a : array[1..15] of byte;
i, n , c: byte;

begin
randomize;
writeln('Массив:');
for i:=1 to 15 do
begin
a[i] := random(90-30+1)+30;
write(a[i], ' ');
end;

writeln;
writeln;
writeln('Список элементов, делящихся на 2:');
c:=0;
for i:=1 to 15 do begin
n:=a[i];
if (n mod 2 = 0) then begin
write (a[i], ' ');
inc(c);
end;
end;
writeln;
writeln;
writeln('Найдено ', c, ' элементов массива, которые делятся на 2');

end.