Question

ан массив из 30 элеменов. Найи минималное знаение и колиесво элеменов делися на 3

Answer 1

CONST N=5;
var a:array[1..N] of integer; min,i,col:integer;
begin
min:=56536;
col:=0;
for i:=1 to N do
begin
read(a[i]);
if a[i] < min then min:=a[i];
if a[i] mod 3 = 0 then inc(col);
end;
writeln('Минимальное значение в массиве = ',min);
write('Количество элементов кратных 3 = ',col);
end.