Решить . заполнить двумерный массив n x n случайными числами из интервала [-10; 10] и найти сколько раз в массиве встречается максимальное по величине число.

287

469

Посмотреть ответы 3

Ответы на вопрос:

lizavolod17

Информатика

4,4(43 оценок)

1. типовое "школьное" решение const nn=20; { указать максимально возможный размер } var a: array[1..nn,1..nn] of integer; n,i,j,mx,k: integer; begin randomize; write('n='); read(n); mx: =-20; { меньше минимально возможного } for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(21)-10; write(a[i,j]: 4); if a[i,j]> mx then begin mx: =a[i,j]; k: =1 end else if a[i,j]=mx then inc(k) end; writeln; end; writeln('максимальное значение ',mx,' встречается ',k,' раз(а)') end. пример работы программы n=10 3 -1 -6 10 -9 -8 -7 1 2 -9 0 6 -1 -2 2 7 3 -5 -2 6 6 0 -3 0 -6 1 9 9 -6 -10 -3 7 -3 -4 -10 6 -8 -9 -10 -3 -1 -1 1 0 1 8 -8 6 7 -5 -1 1 0 -4 -9 -8 -9 4 5 0 -6 -5 -4 2 5 3 -2 -8 -3 6 5 1 -6 -10 -4 -3 10 7 10 -4 -1 -7 -9 10 2 7 -3 -9 -6 8 4 -2 -4 1 -7 -7 -8 10 6 8 максимальное значение 10 встречается 5 раз(а) 2. решение на основе базовых возможностей pascalabc.net 3.2 var a: array[,] of integer; begin randomize; var n: =readinteger('n='); setlength(a,n,n); var mx: =-20; // меньше минимально возможного var k: integer; for var i: =0 to n-1 do begin for var j: =0 to n-1 do begin a[i,j]: =random(-10,10); write(a[i,j]: 4); if a[i,j]> mx then begin mx: =a[i,j]; k: =1 end else if a[i,j]=mx then inc(k) end; writeln; end; writeln('максимальное значение ',mx,' встречается ',k,' раз(а)') end. пример работы программы n= 10 0 2 2 -10 -5 -4 8 6 -8 -1 -4 5 9 3 -4 -8 6 -10 8 -3 5 5 -2 -8 6 -7 -9 5 -10 2 1 -7 -7 -3 0 -10 4 1 6 -1 -2 2 -8 3 0 3 9 5 -1 -8 10 8 3 1 10 5 -7 0 -6 -9 -6 -7 5 0 8 -8 2 2 -8 -4 -2 -5 -6 -1 10 -7 2 5 2 -7 -6 -3 -5 9 3 3 0 2 -2 5 7 -7 -4 5 -6 -6 7 2 6 -3 максимальное значение 10 встречается 3 раз(а)

HepBbI

Информатика

4,6(75 оценок)

Program pr; var arr: array[1..5] of array[1..5] of integer; max, nmax: integer; begin randomize; {формирование массива} for var i : = 1 to 5 do for var j : = 1 to 5 do arr[i][j] : = random(20) - 10; {показ массива} for var i : = 1 to 5 do for var j : = 1 to 5 do write(arr[i][j], ' '); writeln(); {поиск максимального элемента} max : = arr[1][1]; for var i : = 1 to 5 do for var j : = 1 to 5 do if (max < = arr[i][j]) then max : = arr[i][j]; {подсчет максимальных элементов} nmax : = 0; for var i : = 1 to 5 do for var j : = 1 to 5 do if (arr[i][j] = max) then nmax : = nmax + 1; writeln('максимальный элемент: ', max); writeln('количество таких элементов: ', nmax); end.

123451175

Информатика

4,7(18 оценок)

Var a: array[1..100] of integer; n, i: byte; sum, p: integer; begin writeln('1. случайным образом'); randomize; write('введите размер массива: '); readln(n); sum: =0; p: =1; for i: =1 to n do begin a[i]: =random(101)-50; write(a[i]: 4); sum: =sum+a[i]; p: =p*a[i]; end; writeln; writeln('сумма = ', sum: 5); writeln('произведение = ', p: 5); sum: =0; p: =1; writeln(''); writeln('2. с клавиатуры'); for i: =1 to n do begin write('элемент ', i, ' = '); readln(a[i]); sum: =sum+a[i]; p: =p*a[i]; end; writeln('сумма = ', sum: 5); writeln('произведение = ', p: 5); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.