Массив

[Анэта]

Помогите пожалуйста!!!!
1) Дан массив целых чисел(положительных и отрицательных). Определить кол-во элементов, значение которых меньше среднего арифметического минимального и максимального элементов массива и напечатать их номера!!!!

2) Дан массив. Переписать его второй,четветртый и т.д. элементы в другой массив такого же размера, расположив элементы подряд с начала массива!!!!

[Хыиуду]

1. Поиск минимума и максимума в разделе Алгоритмы, среднее арифметическое - полусумма, потом пройти в цикле и вывести все числа, меньшие результата.

2. for i:=1 to n div 2 do B:=A[2*i];

[BHy4ok]

1)

Код: Выделить всё

uses
  Crt;
var
  a:array[0..50] of integer;
  i,n,min,max:integer;
  S:string;
  r:real;
begin
ClrScr;
  write('vvedite kolichesto elementov massiva: ');
  readln(n);
  randomize;
  for I := 0 to n - 1 do
  begin
    a[i]:=Random(50)-30;
    write(a[i], ' ');
  end;
  min:=a[0];
  max:=a[0];
  for I := 0 to n - 1 do
    begin
      if min>a[i] then
        min:=a[i];
      if max<a[i] then
        max:=a[i]
    end;
    r:=(min+max)/2;
    writeln;
    writeln;
    writeln('srednee arefmeticheskoe: ',r:2:1);
    writeln;
    writeln('min: ',min);
    writeln('max: ',max);
    writeln;
    for I := 0 to n - 1 do
    begin
      if a[i]<r then
        writeln(a[i],' pos: ',i+1);
    end;
    readln;
end.