Сформировать двумерную матрицу размером NxN в диап[-10;10] найти макс и мин элемент массива ,указать какое кол-во раз они встреч. в массиве?

S-610215
  · 1,7 K
Автор видеоуроков для подготовки к ЕГЭ по информатике  · youtube.com/c/ИнформатикБУ

Паскаль.

const N = 5;

var

a: array[1..N, 1..N] of integer;

i, j, max, min, cmax, cmin: integer;

begin

randomize;

//заполняем матрицу

for i:=1 to N do

for j:=1 to N do

a[i,j] := random(21)-10;

//находим минимум и максимум

max := a[1,1]; min := a[1,1];

for i:=1 to N do

for j:=1 to N do begin

if (a[i,j]>max) then

max := a[i,j];

if (a[i,j]<min) then

min := a[i,j];

end;

//находим количество минимумов и максимумов

cmin := 0; cmax := 0;

for i:=1 to N do

for j:=1 to N do begin

if (a[i,j]=max) then

inc(cmax);

if (a[i,j]=min) then

inc(cmin);

end;

//выводим результат

writeln('Максимум: ', max);

writeln('Минимум: ', min);

writeln('Кол-во максимальных: ', cmax);

writeln('Кол-во минимальных: ', cmin);

end.

Комментировать ответ…
Вы знаете ответ на этот вопрос?
Поделитесь своим опытом и знаниями
Войти и ответить на вопрос
Присоединяйтесь к экспертному сообществу!

Яндекс.Кью — это сервис экспертных ответов на вопросы. Мы объединяем людей, которые хотят делиться знаниями, помогать друг другу и менять мир к лучшему.

Вы тоже можете стать экспертом!

Узнать больше