В таблице приведены за к поисковому серверу. Для каждого за указан его код —
соответствующая буква от А до Г. Расположите коды за в порядке возрастания
количества страниц, которые нашел поисковый сервер по каждому за По всем за было найдено разное количество страниц.
Для обозначения логической операций «ИЛИ» в за используется символ «|», а для
логической операции «И» — «&».

Элементы матрицы NxM вычисляются по формуле A[i,j] = sin(N*i+M*j) при индексации с единицы или по формуле A[i,j] = sin(N*(i+1)+M*(j+1)) при индексации с нуля. Если полученный таким образом элемент матрицы отрицателен, то заменить его на 0. Вывести конечную матрицу на экран.

Объяснение:

В числовой матрице поменять местами два столбца, т. е. все элементы одного столбца поставить на соответствующие им позиции другого, а его элементы второго переместить в первый.

Задана матрица неотрицательных чисел. Посчитать сумму элементов в каждом столбце. Определить, какой столбец содержит максимальную сумму.

var

       a: array [1..30] of Word;

       i, c, sum: Word;

begin

       Randomize;

       for i := 1 to 30 do

               a[i] := Random (76);

       for i := 1 to 30 do

               Write (a[i], ' ');

       WriteLn;

       for i := 1 to 30 do

               if (a[i] >= 10) and (a[i] <= 35) then begin

                       Inc (c);

                       sum := sum + a[i];

                       Write (a[i], ' ')

               end;

       WriteLn;

       WriteLn ('Кол-во чисел из диапазона [10; 35]: ', c);

       Write ('Сумма чисел из диапазона [10; 35]: ', sum);

end.