Очень надо написать программу, задачи не сложные для тех кто разбирается (не для меня увы)

[Artm3]

Послезавтра надо сдать контрольную не решены 2 задания помогите плиз напишите программу кто разбирается хоть к одной из задач.

В матрице А рамером 6 на 6 найти наибольший и наименьший по модулю элементы и поменять их местами


в массиве из 10 целых чисел вычеслить разность между наибольшим элементом и средним арифметическим всех элементов массива.

Заранее огромное человеческое спасибо.

Ребят кто возьмется напишите прогу без сокращений , а то не поверят что сам сделал.

[Pein95]

а вы хоть пробовали их сделать? задачи вопше простые

[Pein95]

program Project1;

{$APPTYPE CONSOLE}

var
 a:array[1..6,1..6] of integer;
 i,j:integer;
 max,min:integer;

begin

for I := 1 to 6 do
  for j := 1 to 6 do
    readln(a[i,j]);

    max:=abs(a[1,1]);
    min:=abs(a[1,1]);

    for I := 1 to 6 do
    for j := 1 to 6 do
     if max<abs(a[i,j]) then
      max:=abs(a[i,j]);


     for I := 1 to 6 do
    for j := 1 to 6 do
    if min>abs(a[i,j]) then
     min:=abs(a[i,j]);

writeln('max=',max);
writeln('min=', min);

readln;



end.

первая

program Project1;

{$APPTYPE CONSOLE}

var
 a:array[1..10] of integer;
 i:integer;
 max,suma:integer;
 ser,r:real;

begin
 for I := 1 to 10 do
   readln(a[i]);
   max:=a[1];
   suma:=0;

for I := 1 to 10 do
 if max<a[i]  then
  max:=a[i];

for I := 1 to 10 do
  suma:=suma+a[i];

  ser:=suma/10;
  r:=max-ser;

  writeln('raznica=',r:0:2);
  readln;


end.

вторая