Переведите в кумир пожалуйста
1. Const N = 10; Var i,S:integer; m:array [1..N] of integer; Begin randomize; S:=0; for i:=1 to N do begin m[i]:= random(201)-100; writeln(m[i]); end; for i:=1 to N do if m[i] mod 2 = 0 then S:=S+m[i]; writeln('Summa = ',S); readln; end.
Нет комментариев
Ответы
Похожие вопросы
Информатика
1-4 сделай пж :) :)::::::)))))))...
Список предметов
