Помогите пожалуйста! Массив из 10 элементов заполнен случайными числами в Паскале. Найти количество элементов массива кратным 3 и больше 50
Answers & Comments
infor5
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;
Answers & Comments
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.