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 кон