Question

Помогите пожалуйста! Массив из 10 элементов заполнен случайными числами в Паскале. Найти количество элементов массива кратным 3 и больше 50

Answer 1

var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100);write(a[i],'   ');
if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;
end;

writeln('S=',S);
end.