Pascal!

Найти среднее арифметическое отрицательных элементов массива. Заменить на него минимальный элемент.

Question

Информатика

Силя

3 марта, 07:35

Pascal!

Найти среднее арифметическое отрицательных элементов массива. Заменить на него минимальный элемент.

+5

Ответы (1)

Знаете ответ на вопрос?

Полинка · Answer 1

Var a: array[1 ... 10] of integer;

var i, col, ans:integer;

begin

ans:=0;

col:=0;

for i:=1 to 10 do

begin

readln (a[i]) ;

if a[i] < 0 then

begin

col:=col+1;

ans:=ans+a[i];

end;

end;

writeln (ans/col) ;

end.

Pascal!Найти среднее арифметическое отрицательных элементов массива. Заменить на него минимальный элемент.

Pascal!

Найти среднее арифметическое отрицательных элементов массива. Заменить на него минимальный элемент.