Переведите в кумир пожалуйста 1. Const N = 10; Var i,S:integer; m:array [1..N] of integer; Begin randomize; S:=0; for i:=1 to N
Переведите в кумир пожалуйста 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.
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.
Стало: цел i, S, N N := 10 цел таб m[1:N]
алг нач S := 0 нц для i от 1 до N m[i] := irand(-100, 100) вывод m[i], нс кц нц для i от 1 до N если mod(m[i], 2) = 0 то S := S + m[i] все кц вывод "Summa = ", S кон