Программы pascal, матрицы

Из тех строк данной целочисленной матрицы, которые  содержат только нечётные элементы, найти строку с максимальной суммой модулей элементов ответ вывести на печать 



uses CRT;
const N=5;
A:array[1..N, 1..N]of integer=(
(1, 1, 1, 1, 1),
(1, 2, 3, 4, 5),
(1, 2, 3, 4, 5),
(2, 2, 2, 2, 2),
(1, 3, 3, 7, 5));
var i,j,str,sum,max: integer;
    b: boolean;
BEGIN
    ClrScr;
    max:= -1;{ ­Ґв ¬ ЄбЁ¬ «м­ле  }
    str:= -1;{ бва®Є  ­ҐЁ§ўҐбв­  }
    for i:= 1 to N do begin { жЁЄ« Ї® бва®Є ¬ ᢥаег ў­Ё§ }
        sum:= 0;
        b:= false;{ ­Ґв ­Ґзсв­ле н«Ґ¬Ґ­в®ў }
        for j:= 1 to N do begin { жЁЄ« Ї® бва®ЄҐ }
            sum:= sum + abs(A[i,j]);
            if not odd(A[i,j]) then
                b:= true;{ Ґбвм ­Ґзсв­л© н«Ґ¬Ґ­в }
        end;
        if (not b) and (sum>max) then begin
            max:= sum;{ § Ї®¬­Ё«Ё б㬬г }
            str:= i;  { Ё бва®зЄг       }
        end;
    end;
    WriteLn('‘ва®Є  [',str,'] б ¬ ЄбЁ¬ «м­®© б㬬®© ¬®¤г«Ґ© н«Ґ¬Ґ­в®ў');
    WriteLn('< OK >');ReadKey;
END.

Матрицы N на N

Даны 2 действительные квадратные матрицы А и В размерности N*N. Получить новую матрицу умножением элементов каждой стороки матрицы А на max элемент соответствующей строки матрицы В.

Площадь и объем параллелепипеда с помощью меню CASE

Найти площадь и объем параллелепипеда с помощью меню CASE

Натуральное число, перестановка чисел

Дано натуральное число. Требуется найти число, получаемое из исходного перестановкой его первой и последней цифр.

Матрица 4 на 4

Дана матрица А 4х4 Найти строчку, в где находиться максимальный элемент массива и заменить все элементы в этой строке максимальным.

Найти наибольшее из трех чисел

Составить программу на языке Pascal которая определяет наибольшее из 3 вводимых чисел, программу записать с помощью оператора if ... then

Случайные числа Pascal, Псевдослучайные числа

Генерировать с помощью random 

1.  25 действительных чисел, лежащих в диапозоне от -50 до 50,
2.  30 целых чисел, лежащих в диапозоне от -20 до 20.
3.  20 не отрицательных действительных чисел, не превосходящих 40.