Решите с паскаля, сформировать массив случайным образом(длина массива 20).найти в нем среднее арифметическое.сформировать новый массив из элементов первого больших среднего арифметического.
Program TZ5; const n=20; var a,z:array [1..n] of integer; i,b,x:byte; begin randomize; for i:=1 to n do begin a[i]:=random (20); a[i]:=a[i]-10; writeln(i,' ',a[i]); end; b:=0; for i:=1 to n do b:=b+a[i]; x:=1; writeln; for i:=1 to n do if a[i]>b/n then begin z[x]:=a[i]; x:=x+1; end; for i:=1 to x do writeln(i,' ',z[i]); readln; end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-50,50); a.Println;
var b:=a.Where(t->t>a.Average).ToArray; b.Println
end.
Пример
10 32 7 10 -17 -5 6 14 -39 -20 -28 2 -22 15 10 11 28 -13 -29 31
10 32 7 10 6 14 2 15 10 11 28 31
Program TZ5;
const
n=20;
var
a,z:array [1..n] of integer;
i,b,x:byte;
begin
randomize;
for i:=1 to n do begin
a[i]:=random (20);
a[i]:=a[i]-10;
writeln(i,' ',a[i]);
end;
b:=0;
for i:=1 to n do
b:=b+a[i];
x:=1;
writeln;
for i:=1 to n do
if a[i]>b/n then begin
z[x]:=a[i];
x:=x+1;
end;
for i:=1 to x do
writeln(i,' ',z[i]);
readln;
end.