7. Дан массив А из 20 элементов. Заменить отрицательные эле-менты массива на среднее арифметическое элементов массива. Результат вывести на печать.

Question

Информатика

Синклитикия

29 марта, 20:13

7. Дан массив А из 20 элементов. Заменить отрицательные эле-менты массива на среднее арифметическое элементов массива. Результат вывести на печать.

+4

Ответы (1)

Знаете ответ?

Ипатий · Answer 1

На паскаль:

var

i: integer;

sr: real;

a: array [1 ... 20] of real;

begin

sr:=0;

for i : = 1 to 20 do

begin

read (a[i]) ;

sr:=sr+a[i];

end;

sr:=sr/20;

for i : = 1 to 20 do

if (a[i]<0) then a[i]:=sr;

for i : = 1 to 20 do

write (a[i], ' ') ;

readln;

end.