Дан одномерный массив а(10) элементами которого являются положительные и отрицательные целые числа, вводимые с клавиатуры. сформировать новый массив в(10) заменив отрицательные элементы массива аi средним арифметическим значением отрицательных элементов, с подсчётом их количества. на дисплей вывести: исходный массив а(10), количество отрицательных элементов, их среднее значение.
b: array[1..10] of real;
i,n: integer;
s: real;
begin
s:=0; n:=0;
write('массив a: ');
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then
begin
s:=s+a[i];
n:=n+1;
end;
write(a[i],' ');
end;
s:=s/n;
writeln;
writeln('среднее арифметическое отрицательных: ',s);
writeln('количество отрицательных: ',n);
write('массив b: ');
for i:=1 to 10 do
begin
if a[i]<0 then b[i]:=s
else b[i]:=a[i];
write(b[i]:7:3);
end;
end.
массив a: 2 2 -3 1 -5 -6 -5 9 -7 5
среднее арифметическое отрицательных: -5.2
количество отрицательных: 5
массив b: 2.000 2.000 -5.200 1.000 -5.200 -5.200 -5.200 9.000 -5.200 5.000