Одномерные массив, Формирование 2 массивов Опции

[itGarD]

Задача
Дан массив целых чисел. Сформировать 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.

[volvo]

Первый массив заполняешь вот так:

     m := 0;
     for i:=1 to n do
       if (mas[i] > L) and (i mod 2 = 0) then begin
         m := m + 1; mas1[m] := mas[i];
       end;
     for i:=1 to m do begin
       write(' ',mas1[i]);
     end;

, второй - по аналогии (подставь нужные условия)...

[compiler]

Первый массив заполняешь вот так: for i:=1 to n do

volvo, а можно ли тут использовать while i<n do ... inc(i,2); ... end; , ведь тогда мы не проверяем лишнии элементы..

у меня получилось так(с одним массивом)  del5.pas ( 483 байт ) Кол-во скачиваний: 283
...

Сообщение отредактировано: compiler - 13.05.2007 16:03