Информатика, опубликовано 2018-08-22 23:27:20 by Гость
Составьте программу, которая формирует массив из 40 случайных чисел от 0 до 20 и вычисляет, сумму чисел, кратных 3
Ответ оставил Гость
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 thens:=s + m[i]
end;
Writeln
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.