Ав¬то¬мат по¬лу¬ча¬ет на вход трёхзнач¬ное число. по этому числу стро¬ит¬ся новое число по сле¬ду¬ю¬щим пра¬ви¬лам. 1. вы¬чис¬ля¬ют¬ся два числа - сумма стар¬ше¬го и сред¬не¬го раз¬ря¬дов, сумма сред¬не¬го и млад¬ше¬го раз¬ря¬дов. 2. по¬лу¬чен¬ные два числа за¬пи¬сы¬ва¬ют¬ся друг за дру¬гом в по¬ряд¬ке не¬воз¬рас¬та¬ния (без раз¬де¬ли¬те¬лей). при¬мер: 277. по¬раз¬ряд¬ные суммы: 9, 14. ре¬зуль¬тат: 149. сколь¬ко из чисел могут по¬лу¬чить¬ся в ре¬зуль¬та¬те ра¬бо¬ты ав¬то¬ма¬та. 1616 169 163 1916 1619 316 916 116

 program z1;
 var n,m:integer;
 rost,nine_a,nine_b:real;
 begin
write('Введите количество учинеков 9а класса: ');
readln(n);
write('Введите количество учинеков 9б класса: ');
readln(m);
writeln('Вводите рост каждого из учинеков 9а по очереди');
for i:integer :=1 to n do begin
write(i,': ');
read(rost);
nine_a:=nine_a+rost;
end;
nine_a:=nine_a/n; // средний рост 9а
writeln('Вводите рост каждого из учинеков 9б по очереди');
for i:integer :=1 to m do begin
write(i,': ');
 read(rost);
nine_b:=nine_b+rost;end;
nine_b:=nine_b/n; // средний рост 9б
if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');
end.

как-то так, будут вопросы пиши)
Всего-то 30 мин

Const
  n = 15;

var
  i: integer;
  a: array[1..n] of integer;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(100) - 50;
    write(a[i]:6);
    if a[i] < 0 then a[i] := sqr(i)
  end;
  writeln;
  writeln('Результирующий массив');
  for i := 1 to n do write(a[i]:6);
  writeln
end.

Тестовое решение:

Исходный массив
     3    37    40    17    20   -12   -27     4    34    -1     9    42    -6   -36    28
Результирующий массив
     3    37    40    17    20    36    49     4    34   100     9    42   169   196    28