MAXI

Здравствуйте. Прошу помочь с составлением задачи на Паскале. Дана квадратная матрица. Определить в ней количество строк, упорядоченных по возрастанию, с использованием подпрограммы-функции. Заранее спасибо!

poiu

все же имеется ряд вопросов:
что значит дана матрица
что значит строки, упорядоченные по возрастанию.

MAXI

Ну пускай к примеру будет матрица размером 10 на 10. А насчет строк, то нужно вывести количество тех, элементы которых выстроены по возрастанию, от меньшего к большему. Вроде бы разъяснил)

poiu

как то так =)

uses crt;
const
mas: array[1..5, 1..5] of integer = (
(13, 36, 28, 44, 39),
(23, 54, 87, 34, 56),
(12, 14, 56, 67, 78),
(43, 76, 34, 98, 12),
(10, 24, 46, 58, 79)
);
var
i, j, count, n: byte;
begin
clrscr;
writeln('Vhodnoi massiv:');
for i:= 1 to 5 do
begin
for j:= 1 to 5 do
write(mas[i, j]:3);
writeln;
end;
count:= 0;
for i:= 1 to 5 do
begin
n:= 0;
for j:= 1 to 4 do
begin
if (mas[i, j+1])>mas[i, j] then n:= n+1;
end;
if n = 4 then count:= count+1;
end;
writeln('4islo strok = ', count);
readln;
end.