Переведите в кумир пожалуйста 1. Const N = 10; Var i,S:integer; m:array [1..N] of...

Question

Переведите в кумир пожалуйста
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.

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

Comments

Спасибо огромное