Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива. Язык паскаль.
Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива.
Язык паскаль.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы