Самое главное забыла.. Паскаль.
Начало я написала.
program tablica;
uses crt;
const max_s= 50;
max_d= 50;
k=100;
var a:array[1..max_d,1..max_s] of integer;
d, s, i, j, z: integer;
begin
d:=-1;
s:=-1;
repeat
clrscr;
writeln ('Введите длину таблицы. Максимальное значение ' ,max_d);
read (d)
until (d>=1) and (d<= max_d);
{clrscr; }
repeat
clrscr;
writeln ('Введите ширину таблицы. Максимальное значение ' ,max_s);
read (s)
until (s>=1) and (s<= max_s);
repeat
clrscr;
writeln ('Выберете способ ввода значений таблицы');
writeln ('1- если хотите выполнить ввод с клавиатуры');
writeln ('2- для случайного вводa');
readln (z);
until (z=1) or (z=2);
if z=1 then
begin
for i:=1 to d do
begin
for j:=1 to s do
begin
writeln('Введите значение ячейки таблицы a[',i,',',j,']');
readln (a[i,j]);
end;
end;
end;
if z=2 then
begin randomize;
for i:=1 to d do
for j:=1 to s do
a[i,j]:=random (k);
writeln (a[i,j]);
end;
clrscr;
for i:=1 to d do
begin
for j:=1 to s do
write(a[i,j],' ');
writeln;
end;
readln;
end.а дальше как?