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

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

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


textual

Код к задаче: «Написать программу и составить блок схему - Pascal ABC»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.200 из 5

Источник
Похожие ответы