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

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

Question

Информатика

Магна

12 июля, 08:29

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

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

+2

Ответы (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 элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива.

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