Переведите в кумир пожалуйста
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.
Ответы
Ответ дал:
0
Было:
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
кон
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
кон
Ответ дал:
0
Спасибо огромное
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
8 лет назад