Програма «Підрахунок», у якій знаходиться сума додатних та кількість від’ємних елементів лінійної таблиці дійсного типу,
const N = 10; var
a: array(l..N] of real;
sum_pos: real
i, kol_neg: byte;
begin
randomise;
pos := 0;
neg 0;
for i:=l to N do begin a[i] := random(10)-5; write(a[i]:2);
if a[i] < 0 then kol_neg := kol_neg + 1
else
if a[i] > 0 then sum_pos := sum_pos + a[i];
end;
writeln;
writeln (Сума додатних елементів: sum_pos);
writeln (Кількість від’ємних елементів: kol_neg);
end.