Составьте программу, которая формирует массив из 40 - вопрос №622419540020 от klimdjan 26.01.2023 04:38

Question

Информатика: Составьте программу, которая формирует массив из 40 случайных чисел от 0 до 20 и вычисляет, сумму чисел, кратных 3

klimdjan · Answer

Const
n=40;
var
i, s:integer;
m:array[1..n] of integer;
begin
Randomize;
for i:=1 to n do
begin m[i]:=Random(21)+0; Write(m[i],' ') end;
Writeln;
s:=0;
for i:=1 to n do begin
if m[i] mod 3=0 then s:=s + m[i]
end;
Writeln
end.