Найдите все элементы линейного массива целых чисел, которые больше среднего арифметического элементов массовов.

Задача в паскаль.

Question

Информатика

Варнава

8 декабря, 13:11

Найдите все элементы линейного массива целых чисел, которые больше среднего арифметического элементов массовов.

Задача в паскаль.

+4

Ответы (1)

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

Виленина · Answer 1

Var ar:array[1 ... 5] of integer;

i:integer;

s:real;

begin;

for i:=1 to 5 do

begin;

readln (ar[i]) ;

s:=s+ar[i];

end;

s:=s/5;

writeln ('Среднее арифметическое:', s) ;

writeln ('Result:') ;

for i:=1 to 5 do

if ar[i]>s then write (ar[i]:4) ;

end.

Найдите все элементы линейного массива целых чисел, которые больше среднего арифметического элементов массовов.Задача в паскаль.

Найдите все элементы линейного массива целых чисел, которые больше среднего арифметического элементов массовов.

Задача в паскаль.