Процедуры + матрицы :( Опции

[Олег]

Привет.
Вот попалась мне такая програмка.

Дано 5ть матриц!!! При этом все они разной размерности (5*1, 1*5 или 5*5). И все их надо забивать, ну если я сделаю пять циклов для ввода, меня повесят

Вот я и решил сделать процедурку, но столкнулся с проблемой: как указать, какой из пяти массивов заполнять?

[Camel_Toe]

Попробуй так

Код

program no_name;
Uses crt;

const
 m=20;
 n=20;

type
 mas=array[1..m,1..n] of integer;

procedure vvod(n,m:integer; var Matr: mas);
begin
    for i:=1 to m do
    begin
         for j:=1 to n do
         begin
         writeln('Vvedite ',i,'[',j,']');
          readln (matr[i,j]);     
         end;
    end;
end;

var
i:integer;
a,b,c,d,e:mas;

begin
clrscr;
for i:=1 to 5 do begin
      write ('введите размер матрицы: <m на n>: m и n не больше 20: ');
      readln (m,n);
      case i of
      1: vvod (m,n,a);
      2: vvod (m,n,b);
      3: vvod (m,n,c);
      4: vvod (m,n,d);
      5: vvod (m,n,e);
       end;
      end;

readkey;

end.

Если что не получится - спроси, сам я прогу не набирал, правил твою:-)