Версия для печати темы

Автор: Juhn 10.02.2008 18:46

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

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

Автор: Client 10.02.2008 21:17

если

значит что надо увеличить каждый элемент массива на 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 10.02.2008 22:18

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


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

Автор: Juhn 10.02.2008 22:55

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

Автор: compiler 10.02.2008 23:06

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