Написать программу и составить блок схему - 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.