Задачи на матрицы (двумерные массивы), 6 задач. Опции

[Леха]

1.Создать 2-х мерный массив 20х15 целых чисел заданных через randomize и найти их сумму.
2.Создать матрицу 5х5 значение каждого элемента = сумме № строки и столбца на пересечении которого он находиться. Вычислить сумму элементов каждой строки.
3.Создать 2-х мерный массив 4х4 и найти максимальный по абсолютному значению а также укажите номер строки и столбца содержащие этот элемент.
4.Создать 2-х мерный массив через randomize и определите и определите есть ли в нем элементы с одинаковым значением
5.Создать 2-х мерный массив вещественных чисел 3х5 выведите на экран затем разделить каждый элемент на среднее арифметическое значение элементов строки в котором они расположены.
6.Создайте программу проверяющую образуют ли элементы массива "Магический квадрат".(маг. квадрат- суммы по всем горизонталям вертикалям и 2-ум диагоналям - равны

[volvo]

klem4
Все просто:

Код

const
 n = 3;
 a: array[1 .. n, 1 .. n] of integer =
   ((1, 2, 1), (1, 1, 1), (1, 1, 1));

var
 i, j, s, main: integer;
 b: boolean;
begin
 s := 0; b := true;

 for i := 1 to n do
   s := s + a[i, i];
 main := s;

 for i := 1 to n do
   s := s - a[i, n - i + 1];
 b := b and (s = 0);

 if b then
   for i := 1 to n do
     begin
       s := main;
       for j := 1 to n do
         s := s - a[i, j];
       b := b and (s = 0)
     end;

 if b then
   for j := 1 to n do
     begin
       s := main;
       for i := 1 to n do
         s := s - a[i, j];
       b := b and (s = 0)
     end;

 writeln('magic: ', b)
end.