Вопрос по информатике:
Дан двумерный массив. Найти максимальный элемент и проверить, сколько раз он встречается в каждой строке.
- 01.10.2016 09:13
- Информатика
- remove_red_eye 719
- thumb_up 10
Ответы и объяснения 2
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.
- 01.10.2016 22:14
- thumb_up 42
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.
- 03.10.2016 10:23
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.