ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ
Матем ИЗ "...\Отделы\Числа\",
Приём ИЗ "...\Отделы\Обмен\",
Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
a: ДОСТУП К РЯД ИЗ РЯД ИЗ ЦЕЛ;
n, m, сч1, сч2: ЦЕЛ;
элементов: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите n (>=5): ");
n := Приём.Число();
Вывод.Цепь("^Введите m (>= 5): ");
m := Приём.Число();
ЕСЛИ (n < 5) ИЛИ (m < 5) ТО
Вывод.Цепь("^Некорректные параметры.")
ИНАЧЕ
СОЗДАТЬ(a, n, m);
ОТ сч1 := 0 ДО n - 1 ВЫП
ОТ сч2 := 0 ДО m - 1 ВЫП
a[сч1, сч2] := УЗК(ВШИРЦЕЛ(Матем.случ() * 10))
КОН
КОН;
элементов := 0;
ОТ сч1 := 0 ДО n - 1 ВЫП
ЕСЛИ a[сч1, 3] < 5 ТО УВЕЛИЧИТЬ(элементов) КОН
КОН;
Вывод.ЧЦел("^Элементов 4-го столбца, меньших 5: %d.", элементов, 0, 0, 0)
КОН
КОН Задание.
const
T_max=12;
var
i,j,s:byte;
m,n:byte;
T:array[1..T_max, 1..T_max]of integer;
begin
write('Введите значение m>4,n>4 для определения массива T[m,n]: ');
readln(m, n);
writeln('Заполнение массива случайными данными');
//начальные значения min и max
for i:=1 to m do begin
for j:=1 to n do begin
T[i,j]:=random(-79,79);// диапазон случайных чисел
write(T[i,j]:6);
end;
writeln();
end;
writeln();
writeln('Определить количество элементов четвертого столбца массива, меньших 5');
s:=0;
for i:=1 to m do
if (T[i,4]<5) then
s:=s+1;
writeln('ответ: условию удовлетворяют ', s, ' элементов');
end.