дан целочисленный массив состоящий из 12 элементов и заполненный случайными числами (-15;15). Найдите количество элементов кратных 5
Ответы на вопрос
Ответил BobbyFresnel
0
===== PascalABC.NET =====
begin
var a := ArrRandom(12, -15, 15);
a.Println.Count(p -> p mod 5 = 0).Print
end.
Приложения:
то самое чувство когда вообще ничего не понимаешь
Новые вопросы
Физика,
1 год назад
Немецкий язык,
1 год назад
Английский язык,
1 год назад
Информатика,
7 лет назад
var a,s:integer;
q:array[0..12] of integer;
begin
for a:=1 to 12 do begin
q[a]:=random(30)-15;
writeln(q[a]);
end;
for a:=1 to 12 do begin
if(q[a] mod 5 =0) then
s:=s+1;
end;
writeln('qe',s);
end.