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

0 голосов
28 просмотров

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


Информатика (15 баллов) | 28 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
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.
(558 баллов)