Дан массив целых чисел. Сформировать 2 новых массива.
Первый содержит все числа, которые больше среднего арифметического исходного массива и стоят на четных позициях,а второй - все числа, которые меньше среднего арифметического исходного массива и стоят на нечетных позициях.
Вот что получилось, но получилось не совсем то что нужно.
Код
uses crt;
const
n=10;
type a=array[1..n] of integer;
var
mas, mas1, mas2: a;
f,k,i,m,g: integer;
l:real;
begin
clrscr;
randomize;
for i:=1 to n do
begin
mas[i]:=random(30);
write(' ',mas[i]);
end;
for i:=1 to n do
begin
k:=k+mas[i];
l:=k/n;
end;
writeln(' Summa: ',l:1:1);
for i:=1 to n do
if i mod 2=0 then
for f:=1 to n do
begin
if mas[i]>l then
mas1[f]:=mas[i];
end;
for f:=1 to n do begin
write(' ',mas1[f]);
end;
for i:=1 to n do
if i mod 2<>0 then
for g:=1 to n do
begin
if mas[i]<l then
mas2[g]:=mas[i];
end;
for f:=1 to n do begin
write(' ',mas2[g]);
end;
readln;
end.
