Помогите пожалуйста! Массив из 10 элементов заполнен случайными числами в Паскале. Найти количество элементов массива кратным 3 и больше 50
Помогите пожалуйста! Массив из 10 элементов заполнен случайными числами в Паскале. Найти количество элементов массива кратным 3 и больше 50
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы