двумерный массив, помогите пожалйста Опции

[Oksana18]

Товарищи, напишите мне пожалуйста программу в которой я магу задавать размерность матрицы и вывеси ее на экран, буду признательна...

[Freedom]

Случайное заполнение

var a:array [1..100,1..100] of integer;
    i,j,m,n:integer;
 begin
  writeln('Razmer matrici m*n');
  writeln('Vvedite m');
  readln(m);
  writeln('Vvedite n');
  readln(n);
  randomize;
  for i:=1 to m do for j:=1 to n do a[i,j]:=random(10);
  for i:=1 to m do begin for j:=1 to n do write(a[i,j],' '); writeln; end;
readln;
end.

Ручное

var a:array [1..100,1..100] of integer;
    i,j,m,n:integer;
 begin
  writeln('Razmer matrici m*n');
  writeln('Vvedite m');
  readln(m);
  writeln('Vvedite n');
  readln(n);
  writeln('VVedite elementi matrici');
  for i:=1 to m do for j:=1 to n do readln(a[i,j]);
  writeln('__________________________________________');
  for i:=1 to m do begin for j:=1 to n do write(a[i,j],' '); writeln; end;
readln;
end.

Сообщение отредактировано: Freedom - 3.06.2010 19:40