Переведите в кумир пожалуйста 1. Const N = 10; Var i,S:integer; m:array [1..N] of integer; Beginrandomize;S:=0;for i:=1 to N do beginm[i]:= random(201)-100;writeln(m[i]);end;for i:=1 to N doif m[i] mod 2 = 0 thenS:=S+m[i];writeln('Summa = ',S);readln; end.

Было:
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.
 
Стало:
цел 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
кон