Паскаль. Обработка массивов.

[Pascaler]

В двумерном массиве 3х3 (данные вводим с клавиатуры) чисел найти строки с максимальным и минимальным значением приращения (разности между соседними значениями).

[IT-man]

Стучи в аську(под ником)! договоримся!

[ROMA2PVT]

http://programmersforum.ru/showthread.php?p=496285
Ну и в чём проблема.Stilet её ведь уже делал.Сделайте ручной ввод и всё готово.

[Pascaler]

НЕ работает у него.. там только максимальное находит .. ЧТо там исправить надо?

  var a:array[1..5,1..5] of integer;
  max:integer;
  q,w,dx:integer;
begin
 for q:=1 to 5 do begin
  for w:=1 to 5 do begin
   a[q,w]:=random(200);
   if (w>1)and(abs(a[q,w]-a[q,w-1])>max) then max:=abs(a[q,w]-a[q,w-1]);
   write(a[q,w]:5);
  end;
  writeln;
 end;
 writeln;write(max);
 readln;

end.

В этой программе надо найти строки с максимальным и минимальным значением, а здесь не так же... Кто понимает Паскаль помогите доделать, завтра уже сдавать

[Филантроп]

Кто понимает Паскаль помогите доделать, завтра уже сдавать

вот пожалуйсТа:

Сообщение от IT-man

Стучи в аську(под ником)! договоримся!

и вот тут куча народа

[Pascaler]

Филантроп подсказал бы лучше вместо этого

[Филантроп]

Филантроп подсказал бы лучше вместо этого

А я чего сделал?

[Pascaler]

  var a:array[1..5,1..5] of integer;
  max:integer;
  q,w,dx:integer;
begin
 for q:=1 to 5 do begin
  for w:=1 to 5 do begin
   a[q,w]:=random(200);
   if (w>1)and(abs(a[q,w]-a[q,w-1])>max) then max:=abs(a[q,w]-a[q,w-1]);
   write(a[q,w]:5);
  end;
  writeln;
 end;
 writeln;write(max);
 readln;

end.

Stilet тут не max находит по моему а min. вообщем запутался я тут с этой прогой. КТо понимает как дорешить ее?

[Google2010]

Я понимаю.стучи 5535661790 !сделаю за $

[Pascaler]

Я же вас не совсем с нуля решить прошу.. А ППРОСТО ПОМОЧЬ ДОРЕШИТЬ!! КТо за деньги не пишите в теме