Было:
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
кон
Она зарождается в море черном из глубин
Думаю, А (<span>для того, чтобы представленные сведения можно было запрограммировать в числовом виде на компьютере</span>) подходит.
Program task;
var i,a:real;
begin
i:=-4;
while (i<=4) do begin
a:=(i*i*i)-(i*i)+16*i-43;
writeln(a:0:2);
i+=0.5;
end;
readln;
<span>end.</span>