Вставка строки в массив Опции

[-Иван-]

Вставить первую строку после строки, в которой находится первый встреченный максимальный элемент.

[Tan]

Ну можно было бы проще, посмотри что у меня вышло, то ли, что тебе надо :

uses crt;
Const  M = 5;
        N = 5;
var ms : array [1..N,1..M] of integer;
    max,i,j,k : integer;
begin
Clrscr;
randomize;
for i:=1 to N do 
 begin
   writeln;
   for j:=1 to M do
      begin
        ms[i,j]:=random(10);
        write (ms[i,j]:2);
      end;
 end;
     max:=ms[1,1];
     for i:=1 to N do
     for j:=1 to M do if ms[i,j] >= max then max:=ms[i,j];
     writeln;
     writeln ('MAX ',max); 
     for i:=1 to N do
     for j:=1 to M do if ms[i,j] = max then begin  for k:=1 to M do ms[i + 1,k]:=ms[1,k]; break; end;
     for i:=1 to N do 
 begin
   writeln;
   for j:=1 to M do write (ms[i,j]:2);
 end;   

Сообщение отредактировано: Tan - 11.04.2007 21:34