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

Задача:

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

Question

Информатика

Аврам

21 января, 18:18

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

Задача:

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

+2

Ответы (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 чисел, найти сумму положительных и сумму отрицательных