1) 1,2
2) 2
3) 3
4) 4
5) 1, 3, 6
6) 2, 3, 4, 6, 7
7) Совокупность взаимосвязанных явлений, процессов, работ, образующих законченный круг развития в течение какого-л. промежутка времени
8) 1, 3, 4, 5, 8
16) 2, 3, 5
17) 1, 2
var
a:array[1..100, 1..100] of integer;
n, m, count, i, j, max:integer;
begin
randomize;
write('m = ');
readln(m);
write('n = ');
readln(n);
writeln('Исходный массив :');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(11);
write(a[i, j], ' ');
end;
writeln;
end;
max := a[1, 1];
for i := 1 to m do
for j := 1 to n do
if a[i, j] > max then
max := a[i, j];
writeln('Max = ', max);
for i := 1 to m do
begin
count := 0;
for j := 1 to n do
if a[i, j] = max then
inc(count);
writeln('В строке', i ,' находится', count, ' максимальных элементов');
end;
readln;
end.
<span>1 байт [Б] = 0.0009765625 килобайт </span>