Сказали не доделано .в информатике не шарю
Ответы
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Надо очень Напишите текст программы на языке Паскаль. ">
Автор: СмыковаДарья1969
сылка вот- https://t.me/raiska_yakovchuk/1159
Автор: omigunova39
Сколько единиц в двоичной записи числа 56?
Автор: Маринина_Елена
Что лишнее клавиатура, мышь, сканер, аккустические колонки
Автор: Палкина-Дроздова
Сколько килобайт информации содержит сообщение объемом 2 мегабайта?
Автор: oksanashabanovadc3197
Вычислить сумму +^3/3+^5/5+⋯+^11/11, x вводится с клавиатуры
Автор: kristina1989
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.