Надо код для паскали.дан одномерный массив,найти сумму всех четных элемент массива,кратных заданному числу.

ппчуп ппчуп    3   09.09.2019 10:20    1

Ответы
берсик7 берсик7  07.10.2020 02:54
Const 
n=100;
var
i,m,s:integer;
com:array[1..n] of integer;
begin 
randomize;
readln(s);
for i:=1 to n do begin com[i]:= random(100);
if com[i] mod s =0 then s:=s+com[i]
 end;
 writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика