Ответы
Ответ дал:
0
program q174147740;
var
i, k: integer;
a: array [1..20] of integer;
begin
k:=0;
Randomize;
for i := 1 to 20 do
begin
a[i] := Random(100);
Write(a[i]:3);
if (a[i] mod 15) =0 then k:=k+1;
end;
end.
Подробнее - на Znanija.com - https://znanija.com/task/23239171#readmore
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
7 лет назад