В одномерном массиве А, состоящий из N действительных элементов, вычислить : a) сумму отрицательных элементов массива; b) количество элементов, удовлетворяющих условию 7 Pascal

Program ZadachaA;

Const n=10; {задание размера массива чисел, здесь - 10 элементов в массиве}

Var a: array [1 ... n] of real;

s:real;

i: integer;

begin

s: = 0;

for i:=1 to n do

begin

Write ('a[', i,']='); Readln (a[i]);

if a[i] < 0 then s: = s + a[i];

end;

writeln ('Сумма отрицательных элементов массива = ', s);

end.

Program ZadachaВ;

Const n=10; {задание размера массива чисел, здесь - 10 элементов в массиве}

Var a: array [1 ... n] of real;

i, k: integer;

begin

k: = 0;

for i:=1 to n do

begin

Write ('a[', i,']='); Readln (a[i]);

if a[i] = 0 then k: = k + 1; {подсчет элементов, равных нулю. Условие может быть любым, задать необходимое}

end;

writeln ('Количество элементов массива, удовлетворяющих условию = ', k);

end.