Дан двумерный массив найти в нем максимальный из отрицательных элементов,подскажите плиз
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)
Благодарю
Ты только разберись во всем...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.