Двумерные массивы - Pascal - Ответ 163828

uses crt;
var x:array[1..20,1..20] of integer;
    m,n,a,p,i,j:integer;
begin
clrscr;
randomize;
write('Row=');readln(m);
write('Col=');readln(n);
p:=random(6)+1;{первый элемент}
writeln('x[1,1]=',p);
a:=random(6)+1;
writeln('a=',a);
for i:=1 to m do
for j:=1 to n do
  begin
   x[1,1]:=p;{первый}
   if j>1 then x[i,j]:=x[i,j-1]+5*a{если в строке не первый}
   else x[i,j]:=x[i-1,n]+5*a;{если первый в строке}
  end;
writeln('Massiv:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(x[i,j]:3,' ');
  writeln;
 end;
readln
end.

uses crt;
const m=6;
      n=3;
var a:array[1..m,1..n] of integer;
    i,j:byte;
begin
clrscr;
for i:=1 to m do
 begin
  a[i,1]:=i+1;
  a[i,2]:=sqr(a[i,1]);
  a[i,3]:=a[i,2] div i;{взял текущий индекс строки, уточните условие, замените}
 end;
writeln('Massiv:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3,' ');
  writeln;
 end;
readln
end.