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

[Juhn]

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

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

Сообщение отредактировано: Juhn - 10.02.2008 14:49

[Client]

если

Повысить каждый элемент массива на 2

значит что надо увеличить каждый элемент массива на 2, то

uses crt;
type
    mas=array[1..3,1..3] of real  //описали тип как массив 3х3;
var
   a:mas; //переменная типа mas
   i,j:byte;
begin
     clrscr;
     for i:=1 to 3 do
         for j:=1 to 3 do read(a[i,j]); //ввели элементы массива
     for i:=1 to 3 do begin
         for j:=1 to 3 do begin
             a[i,j]:=a[i,j]+2; //увеличили на 2
             write(a[i,j]:8:3) //вывели массив
         end;
         writeln
     end;
     readkey
end.

[compiler]

вторая задача:  j.pas ( 1.61 килобайт ) Кол-во скачиваний: 351


ps
опечатка исправленна

Сообщение отредактировано: compiler - 10.02.2008 18:28

[Juhn]

compiler спасибо, то что надо ;)

[compiler]

compiler спасибо, то что надо ;)

Внимательно разберись с кодом! Если что -- спрашивай!