Дан двумерный массив. найти максимальный элемент и проверить, сколько раз он встречается в каждой строке.
Ответы на вопрос:
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.
uses crt; var a: array[1..100,1..100]of integer;
i,j,m,n,max,kol: integer;
beginwriteln('введите размер массива'); readln(m,n);
for i: =1to m dobegin
for j: =1to n do
begin
writeln('введите элементы массива ',i,'x',j);
readln(a[i,j]);
end; end;
for i: =1to m dobegin
for j: =1to n do
begin
if a[i,j]> max then
max: =a[i,j];
end;
end; for i: =1to m dobegin
for j: =1to n do begin
if a[i,j]=max then
inc(kol);
end; end;
writeln('max=',max,', встречается ',kol,' raz.');
end.
var i,r,a: integer;
begin cls; r: =0; for i: =1 to 4 dobeginread(a); if a mod 2 = 0 then inc(r); end;
writeln('chetnyh = ',r); readln; end
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
хитрыйкот03.10.2022 03:15
-
okda225.07.2021 21:54
-
Caшa222019.03.2021 06:19
-
toigb196116.04.2020 13:27
-
Nazarova4321.08.2020 07:27
-
Gelag27.02.2021 22:59
-
fifa4818.05.2022 15:29
-
Gagarinaa20.10.2020 23:08
-
Meow44409.06.2020 19:53
-
BPAN32105.03.2020 14:57
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.