Сказали не доделано .в информатике не шарю
Ответы
const n=100;
m=100;
var a: array[1..n,1..m] of integer;
i,j,maxi,maxj,k: integer;
begin
randomize;
for i : = 1 to n do begin
for j : = 1 to m do begin
a[i,j] : = random(100);
end;
end;
maxi : = 1;
maxj : = 1;
for i : = 1 to n do begin
for j : = 1 to m do begin
if (a[i,j] > a[maxi,maxj]) then begin
maxi : = i;
maxj : = j;
end;
end;
end;
k : = 0;
for i : = 1 to n do begin
for j : = 1 to m do begin
if (a[i,j] == a[maxi,maxj]) then k : = k + 1;
end;
end;
writeln('k = ', k);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Укажите разновидности визуальных знаков?
Автор: mukbidc
Нужна по информатике! P.s. задания на казахском!
Автор: Оксана759
Версии публикации сайт 1 2
Автор: alekseydovganich6
const n=100;
m=100;
var a: array[1..n,1..m] of integer;
i,j,maxi,maxj,k: integer;
begin
randomize;
for i : = 1 to n do begin
for j : = 1 to m do begin
a[i,j] : = random(100);
end;
end;
maxi : = 1;
maxj : = 1;
for i : = 1 to n do begin
for j : = 1 to m do begin
if (a[i,j] > a[maxi,maxj]) then begin
maxi : = i;
maxj : = j;
end;
end;
end;
k : = 0;
for i : = 1 to n do begin
for j : = 1 to m do begin
if (a[i,j] == a[maxi,maxj]) then k : = k + 1;
end;
end;
writeln('k = ', k);
end.