помогите написать програмку (Pascal)!)

Делаем цикл по строкам.
Сначала надо определить, является ли строка упорядоченной.
Для этого запоминаем в кач-ве временного 1-й эл-т и идем дальше по строке, сравнивая очередной эл-т с временным, если очередной меньше - строка не упорядочена и ее пропускаем.
Если дошли до конца - строка упорядочена. Берем последний элемент и запоминаем его, он заведомо самый большой, т. к. строка упорядочена.
Делаем так для всех упорядоченных строк, выбирая максимальное значение из найденных. Его и выводим.
Собсно, остается тока код написать. Предоставляю выполнить эту почетную миссию лично Вам, т. к. учиться все же надо :)

ВОТ ТАК.. .
program Tst;
var
j, n, m, S, A : Integer;
Middle : Real;
begin
n := 0; {номер вводимого числа}
S := 0; {сумма чисел}
m := 0; {количество чисел, среднее которых надо подсчитать}
while True do begin
Read(A);
if A = 999 then Break;
n := n + 1;
if (A mod 2 <> 0) and (N mod 2 = 0) then begin
S := S + A;
m := m + 1;
end;
end;
ReadLn;
if m <> 0 then Middle := S / m else Middle := 0;

WriteLn('Среднее значение чисел, удовлетворяющих условию ', Middle:4:3);
ReadLn;
end.

Напишу за деньги. На мыло

Вот пожалуйста, надеюсь не опоздал :)
const str=3;
sto=5;
var m: array[1..str,1..sto] of real;
a: array[1..sto] of real;
i,k: integer;
temp: real;
begin
for i:=1 to str do
for k:=1 to sto do
readln(m[i,k]);
for i:=1 to str do
for k:=1 to sto-1 do
begin
if (m[i,k]>m[i,k+1]) then break else
if ((k+1)=sto) then a:=m[i,k+1];
end;
temp:=a[1];
for i:=1 to sto do
if (a>temp) then temp:=a;
writeln('max=',temp:4:2);
readln;
end.

Сегодня осталось 30 ответов.

Делаем цикл по строкам.
Сначала надо определить, является ли строка упорядоченной.
Для этого запоминаем в кач-ве временного 1-й эл-т и идем дальше по строке, сравнивая очередной эл-т с временным, если очередной меньше - строка не упорядочена и ее пропускаем.
Если дошли до конца - строка упорядочена. Берем последний элемент и запоминаем его, он заведомо самый большой, т. к. строка упорядочена.
Делаем так для всех упорядоченных строк, выбирая максимальное значение из найденных. Его и выводим.
Собсно, остается тока код написать. Предоставляю выполнить эту почетную миссию лично Вам, т. к. учиться все же надо :)

я бы написал, но это вобщем то долгая история