28.05.2020, 14:20
общий
это ответ
Здравствуйте, Ericsson!
[code lang=pascal]const m=5;
n=6;
var L:array[1..m,1..n] of integer;
i,j:integer;
begin
randomize;
writeln('Массив L');
for i:=1 to m do
begin
for j:=1 to n do
begin
L[i,j]:=2+random(15);
write(L[i,j]:3);
end;
writeln;
end;
writeln('Индексы элементов больших суммы размеров матрицы');
for i:=1 to m do
for j:=1 to n do
if L[i,j]>m+n then writeln('[',i,',',j,']');
end.[/code]