Найдите среднее арифметическое отрицательных чисел из n введенных. (в паскале)

Введем следующие обозначения: n – количество вводимых чисел; а - массив из n чисел; i - порядковый номер элементов массива; a[i] - значения элементов массива, которые будем вводить с клавиатуры во время выполнения программы; s – сумма отрицательных чисел массива, sr – среднее арифметическое отрицательных чисел, k – количество отрицательных чисел. Будем использовать оператор цикла с предусловием while. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadacha;

uses crt;

const n=5; var i, s, k: integer;

sr: real;

a: array[1..n] of integer;

begin

s:=0;

i:=1;

k:=0;

while i<=n do begin

writeln('vvedite a[i]:');

readln (a[i] );

if a[i]<0 then begin writeln ('a[i]= ', a[i]); s:=s+a[i]; k:=k+1; end;

i:=i+1;

end;

writeln ('k= ', k);

sr:=s/k;

writeln ('sr= ', sr);

end.

Количество вводимых чисел n можно изменять в программе.