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

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

Question

Информатика

Фортуната

30 октября, 20:38

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

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

+1

Ответы (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.