Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Нахождение максимального из отрицательных элементов матрицы

Автор: nblazhko 15.05.2008 2:56

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

Автор: dream-x 15.05.2008 3:48

Цитата(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 15.05.2008 4:11

Благодарю

Автор: dream-x 15.05.2008 4:27

Цитата(nblazhko @ 15.05.2008 1:11) *

Благодарю

Ты только разберись во всем...