Написать программу на языке паскаль.

Задача:

Дано 10 чисел, найти сумму положительных и сумму отрицательных

Question

Информатика

Аделина

29 июня, 05:50

Написать программу на языке паскаль.

Задача:

Дано 10 чисел, найти сумму положительных и сумму отрицательных

+4

Ответы (1)

Знаете ответ на вопрос?

Калиса · Answer 1

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.

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

Написать программу на языке паскаль.

Задача:

Дано 10 чисел, найти сумму положительных и сумму отрицательных