Помощь - Поиск - Пользователи - Календарь
Полная версия: Нахождение максимального из отрицательных элементов матрицы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
nblazhko
Дан двумерный массив найти в нем максимальный из отрицательных элементов,подскажите плиз
dream-x
Цитата(nblazhko @ 14.05.2008 23:56) *

Дан двумерный массив найти в нем максимальный из отрицательных элементов,подскажите плиз

Я тебе советую азобраться в программе самому по себе знаю...
Вот код:

program pr;
const
Nmax=10;
var
a:array[1..Nmax,1..Nmax] of integer;
max:real;
i,j,n:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]<0 then
max:=a[i,j];
end;
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]<0 then
if a[i,j]>max then max:=a[i,j];
end;
writeln(max);
end.

nblazhko
Благодарю
dream-x
Цитата(nblazhko @ 15.05.2008 1:11) *

Благодарю

Ты только разберись во всем...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.