поскольку условие Или, то должно выполняться хотя бы одно условие
запись 1: пол Ч, Фізика < Біологія (68 < 70) - подходит
запись 2: пол Ч, Фізика = Біологія (69 = 69 ) - не подходит
запись 3: пол Ж, Фізика < Біологія (73 < 74) - подходит
запись 4: пол Ч, Фізика > Біологія (81 > 80 ) - не подходит
запись 5: пол Ж , Фізика > Біологія (79 > 75 ) - подходит
запись 6: пол Ж, Фізика < Біологія (66 < 70) - подходит
Ответ: 4 записи
Это же может быть любое число в диапазоне от 11 до 48.
Const
m=5;
n=7;
var
a:array[1..m,1..n] of integer;
i,j,amax:integer;
p:real;
begin
Randomize;
Writeln('Исходный массивэ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(90)+10;
Write(a[i,j]:3)
end;
Writeln
end;
{Задача 1}
amax:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>amax then amax:=a[i,j];
Writeln('Максимальный элемент равен ',amax);
{Задача 2}
p:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j] mod 2=0 then p:=p*a[i,j];
Writeln('Произведение четных элементов равно ',p);
end.
Пример работы
Исходный массивэ
94 20 49 80 70 55 40
62 74 71 51 88 10 76
68 11 11 74 96 50 69
98 34 25 93 52 53 61
68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33
1. Можно, это те же латинские буквы
2. x>=5, y<>10
3. можно
4. Можно. Записываются в одинарных скобках - 'Привет!'