Найти сумму положительных чисел из 10, введённых с клавиатуры. программа паскаль.

leo1010101 leo1010101    1   27.06.2019 06:30    0

Ответы
werttyu890 werttyu890  02.10.2020 12:53
Var
  i, x, sum:integer;

begin
  sum:=0;
  for i:=1 to 10 do
  begin
    readln(x);
    sum:=sum+x;
  end;
  writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика