Написать программу и составить блок схему - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Для массива A(N) получить сумму положительных и отрицательных элементов массива

Решение задачи: «Написать программу и составить блок схему»

textual
Листинг программы
Const n = 5;
Var A : array [1..n] of integer;
    i, s1, s2 : integer;
begin
For i:=1 to n do A[i]:=random(10)-random(5);
For i:=1 to n do Write(A[i]:4);
Writeln;
s1:=0;
s2:=0;
For i:=1 to n do
    begin
    If (A[i]>0) then s1:=s1+A[i] else s2:=s2+A[i];
    end;
Writeln('>0 - ', s1);
Writeln('<0 - ', s2);
Readln;
end.

Оцени полезность:

10   голосов , оценка 3.2 из 5
Похожие ответы