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

золотесерце золотесерце    1   07.06.2019 19:00    0

Ответы
Stanislav69 Stanislav69  07.07.2020 10:51
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика