Решить задачу на языке бэйсик.

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

Question

Информатика

Евлампий

11 июня, 18:20

Решить задачу на языке бэйсик.

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

+5

Ответы (1)

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

Антиох · Answer 1

Var

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

i: integer;

m, s:real;

Begin

s:=0;

For i:=1 to 20 do

Read (a[i]) ;

For i:=1 to 20 do

s:=s+a[i];

m:=s/20;

For i:=1 to 20 do

if a[i]>=0 then

a[i]:=m;

For i:=1 to 20 do

write (a[i],' ') ; end.