В одномерном массиве, состоящем из n вещественных элементов, заменить каждый элемент > 0, значением среднего арифметического элементов массива. Pascal ABC. Без "randomize".

Question

Информатика

Абдулхаир

25 октября, 05:09

В одномерном массиве, состоящем из n вещественных элементов, заменить каждый элемент > 0, значением среднего арифметического элементов массива. Pascal ABC. Без "randomize".

+3

Ответы (1)

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

Атир · Answer 1

Program z;

const n=5;

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

i:integer; s:real;

begin

s:=0;

for i:=1 to n do

begin

readln (a[i]) ;

s:=s+a[i];

end;

s:=s/n;

for i:=1 to n do

if a[i]>0 then a[i]:=s;

for i:=1 to n do

write (a[i],' ') ;

end.