Задан двумерный массив Str, состоящий из элементов строкового типа. размерностью nxm.Подсчитайте количество элементов в массиве, длина которых больше

1) В случае истинности логического выражения (A>=X AND B>=X) OR (C<=X AND X<=D) можно
утверждать, что ...
(1) X принадлежит отрезку [C; D] и не принадлежит отрезку [A; B]
(2) X принадлежит одному из отрезков [A; B] , [C; D]

2)Для кодирования цвета одной точки, воспроизводимой на экране сотового телефона,
используется 12 бит, разрешение экрана 256*128. Минимальный объем видеопамяти в
килобайтах равен
(1) 16
(2) 384
(3) 32
(4) 48

3). Для записи сообщения используется 16-тисимвольный алфавит. Сообщение объемом 160 байт содержит
(1) 80 символов
(2)320 символов
(3) 10 символов
(4) 160 символов

4)Студент сдал экзамены сессии на оценки А и B. При истинности логического выражения
(A<5) OR (B<5) можно утверждать, что ...
(1) студент имеет хотя бы одну оценку ниже «5»
(2) студент имеет все оценки ниже «5»
(3) сессия сдана на оценки «4» или «5»

5)Сотовый телефон имеет монохромный экран с 8 градациями серого цвета и разрешение
96*68. Для кодирования цвета одной точки, воспроизводимой на экране сотового телефона,
используется 3 бита. Минимальный объем видеопамяти равен
(1) 19584 байт
(2) 6528 байт
(3) 2448 байт
(4) 52224 байт

4) Ввести однородный массив A из N элементов. Отрицательные элементы массива умножить на квадрат собственного индекса. Массив вывести до и после преобразования.

расположенных между максимальным и минимальным элементами.

Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами

ну или исправьте мое пжл

program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);

for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1

else for I:=c+1 to b-1 do p:=p*mas[i];

if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;

close (g);
end.

2. Задать двумерный массив (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы.
3. Задать двумерный массив (7х7) случайными значениями от 12 до 18 включительно. В каждом столбце матрицы найти количество элементов, значения которых меньше 14.
4. Задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 столбца со вторым.
5. Найти минимальный элемент матрицы (5х5), заданной случайными значениями от 1 до 5 включительно, лежащие ниже главной диагонали.

элементов массива A в строке.

местами максимальный и отрицательный элементы. Вывести новый массив