1..10 дейінгі оң сандар тізбегі берілген. Программаны өңдеудің кіріктірілген ортасында сандардың қосындысын есептейтін бағдарлама алгоритмін жазыңыз ​

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.

7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт

e=14

f=15

ответ 2

var x,s,n: integer;

begin

  repeat

        read(x);

        if x< 0 then n: = n +1;

        if x > 0 then s: =s+x;

  until x=0;

  writeln(n,s);

end.

d: /лето/фото/125.jpg

d: /документы/экзамен/информатика