Пример 1
Пример 2
С помощью генератора случайных чисел сформировать двухмерный массив и вывести элементы в виде матрицы
writeln(' Введите число строк и столбцов');
readln(n,k);
Randomize; { Стандартная процедура см. теорию}
{ Заполнение матрицы случайными числами}
for i:=1 to n do
for j:=1 to k do
M[i,j]:=Random(500);
writeln(' Элементы заполненной матрицы');
for i:=1 to n do
begin
for j:=1 to k do
write(M[i,j]:4); writeln;
end;
Задание 3. Найти сумму элементов прямоугольной таблицы размером [n:m] }
uses crt;
var a : array [1..10,1..10] of longint;
i,j,n,m,s : longint;
begin
clrscr;
write('кол-во строк : ');readln(m);
write('кол-во столбцов : ');readln(n);
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',i,']=');readln(a[i,j]);
end;
for i:=1 to m do
for j:=1 to n do s:=s+a[i,j];
write('Сумма:',s);
readln;
end.
Задание 4. Найти maксимальный элемент прямоугольной таблицы размером [n:m]. }
uses crt;
var a : array [1..10,1..10] of longint;
i,j,n,m,max : longint;
begin
clrscr;
write('кол-во строк : ');readln(m);
write('кол-во столбцов : ');readln(n);
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
max:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if max<a[i,j] then max:=a[i,j];
write('max=',max);
readln;
end.
