Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива.

Язык паскаль.

Question

Информатика

Клавдий

4 сентября, 12:49

Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива.

Язык паскаль.

+1

Ответы (1)

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

Филофея · Answer 1

Program enot;

const n = 5;

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

c:real;

i, max, s:integer;

begin

for i: = 1 to n do begin

read (a[i]) ;

s:=s+a[i];

end;

c:=s/n;

for i: = 1 to n do

if a[i]>c then write (a[i], '; ') ;

end.

Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива.Язык паскаль.

Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива.

Язык паскаль.