Написать программу на языке паскаль. Задача: Дано 10 чисел, найти сумму положительных и сумму отрицательных

Вопрос школьника по предмету Информатика

Написать программу на языке паскаль.
Задача:
Дано 10 чисел, найти сумму положительных и сумму отрицательных

Ответ учителя по предмету Информатика

Var

   A,Sp,So:real;

   i:integer;

Begin

Sp:=0;

So:=0;

For i:= 1 to 10 do

    Begin

    Read(A);

    if A<0 then So:=So+A

    else Sp:=Sp+A;

    End;

WriteLn(‘Сумма отрицательных: ‘,So);

WriteLn(‘Сумма положительных: ‘,Sp);

End.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Похожие вопросы от пользователей