Question

НАПИШИТЕ ПОЖАЛУЙСТА ПРОШУУУУУУ!!!!! Написать программу,которая определяет в массиве количество чисел кратных 4 и выписывает наибольшее из них

Answer 1

const n=5;

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

k,i,max: integer;

begin

randomize;

write('массив: ');

for i:=1 to n do begin

a[i]:=random(21)+1;

write(a[i],' ');

if a[i] mod 4=0 then begin

max:=a[i];

k:=k+1;

end;

end;

writeln;

for i:=1 to n do if (a[i] mod 4=0) and (a[i]>max) then max:=a[i];

writeln('k=',k);

write('max=',max);

end.