Двухмерный массив, 2 задачи

[Juhn]

Задача №1: Дан массив реальных чисел 3x3. Повысить каждый элемент массива на 2.
Задача №2: Дан массив вещественных чисел 3х4. Удвойте каждый элемент массива, если сумма элементов 1ого столбца больше суммы элементов последнего столбца, в противоположном случае все элементы массива замените противоположным ему числом.

Помогите пожалуйста написать 2 эти задачи в паскале. Был бы очень признателен за вашу помощь!
P.S первая задача основная, главное её написать, но желательно ещё и дополнительную.
Кроме задач нужны ещё и описания строк (я думаю тут появятся коды, которых я не знаю, т.к не знаю массивы, эти строки желательно описать)

[Карась]

1 задача самая основная
Вы хоть пытались её решить?

[Juhn]

Я не знаю как её решить, так как с двухмерным массивом никогда не работал, я не знаю какой код нужно использовать :/

[WOLFak]

первая

var
 a:array[1..3,1..3]of real; {massiv}
 i,j:integer;
begin
 for i:=1 to 3 do
  for j:=1 to 3 do
   read(a[i,j]);
   {vvod}
   for i:=1 to 3 do
   begin
    for j:=1 to 3 do
    {vyvod}
     write(a[i,j]+2{uv na 2}:0:2{format},' ');
     writeln;
   end;
end.

[WOLFak]

var
 a:array[1..3,1..4]of real; {massiv}
 s1,s2:real;
 i,j:integer;
 r:boolean;
begin
 for i:=1 to 3 do        {stroki}
  for j:=1 to 4 do            {stolbiki}
   read(a[i,j]);
   {vvod}

   for i:=1 to 3 do
begin
     s1:=s1+a[i,1];     {подсчет первого столбца}
      s2:=s2+a[i,4];    {подсчет второго столбца}
end;
      if s1>s2 then      {если 1 столб больше 2 то R true иначе ложь}
       r:=true else r:=false;
       if r=true then    {если больше то удвоение}
        for i:=1 to 3 do
         for j:=1 to 4 do
           a[i,j]:=a[i,j]*2 else
            for i:=1 to 3 do    {иначе * на -1}
             for j:=1 to 4 do
              a[i,j]:=a[i,j]*(-1);
              for i:=1 to 3 do
               begin                      {вывод ввиде таблицы}
               for j:=1 to 4 do
               write(a[i,j]:0:2,' ');
               writeln;
               end;
end.

вторая

[WOLFak]

ну как? у меня вроде все проходит

[Elm0]

Program Mtrx;
uses CRT;
var M: ARRAY[1..3,1..3] of byte;
    i,j:byte;
begin
  clrscr;
  Randomize;
  For i:=1 to 3 do begin
    For j:=1 to 3 do begin
      M[i,j]:=random(100);
       Write(' ',M[i,j]);
    end
    end;
  Writeln;
  Write('Press Enter to increment Matrix ');
  Readln;
  For i:=1 to 3 do begin
    For j:=1 to 3 do begin
    inc(M[i,j],2);
   write(' ',M[i,j])
   end
   end;
   readln;
end.

[Juhn]

WOLFak спаисбо, работает, то что надо