Дан массив A из N элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива.
Язык паскаль.
Answers & Comments
ЕнотЕнотыч
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.
Answers & Comments
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.