Переведите в кумир 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.

Ayvili Ayvili    3   01.09.2019 11:00    0

Ответы
Catlove333 Catlove333  06.10.2020 09:35
Было:
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
кон
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика