| Ville | Дата: Среда, 19.03.2008, 05:04 | Сообщение # 1 |
|
Новичок
Группа: Пользователи
Сообщений: 7
Статус: Offline
| Задана матрица.
Вычислить максимальный элемент среди лежащих выше диагонали и минимальный среди лежащих ниже диагонали!)срочно помогите
|
| |
| |
| etc | Дата: Четверг, 20.03.2008, 02:59 | Сообщение # 2 |
|
Новичок
Группа: Пользователи
Сообщений: 9
Статус: Offline
| program maxdiag;
const maxN = 5;
var a:array [1..maxN,1..maxN] of byte;
i,j,Uppermax,Lowermax:byte;
Begin
{заполняем матрицу случайными числами от 0 до 255}
for i:= 1 to maxN do
for j:= 1 to maxN do
a[i,j]:= random (256);
{вывод матрицы}
for i:=1 to maxN do begin
for j:=1 to maxN do
write (a[i,j]:4);
writeln;
end;
{поиск максимальных}
Uppermax:=a[maxN-1,maxN];
for i:=1 to maxN-2 do
for j:=i+1 to maxN do if a[i,j]>Uppermax then Uppermax:=a[i,j];
Lowermax:=a[2,1];
for i:=3 to maxN do
for j:=1 to i-1 do if a[i,j]>Lowermax then Lowermax:=a[i,j];
writeln ('Uppermax = ',Uppermax);
writeln ('Lowermax = ',Lowermax);
readln;
end.
Сообщение отредактировал etc - Четверг, 20.03.2008, 03:01 |
| |
| |
