Simu1ator
1

Поиск максимального и минимального элемента в массиве

10.05.2009, 15:56. Показов 16935. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите отредактировать программу.
Задание: Ввести двумерный массив, найти индексы и значения максимального и минимального элемента.
Я не пойму в чем проблема. Ввожу данные и ничего не происходит.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program pr;
uses crt;
 
type mas = array [1..30,1..30] of integer;
Var a:mas;
     n,m,j,i,d,max,min,imax,jmax,imin,jmin:integer;
 
{процедура поиска max, min}
procedure search(a:mas);
 
begin
max:=a[1,1];
jmax:=1; imax:=1;
min:=a[1,1];
jmin:=1; imin:=1;
for i:=1 to n do begin
for j:=1 to m do
begin
if a[i,j]>max then
    begin
     max:=a[i,j];
     imax:=i;
     jmax:=j
    end;
if a[i,j]<min then
    begin
     min:=a[i,j];
     imin:=i;
     jmin:=j
    end
end
end
end;  
 
{основная часть}
begin
clrscr;
write('разрядность массива');
readln(n,m);
 
For i:=1 to n do  begin
     For j:=1 to m do begin   read(a[i,j]) end;
     writeln; end;         {ввод элементов массива}
 
search(a);
 
clrscr;
writeln;
writeln('Максимум= ','a[',imax,',',jmax,']= ',max);
writeln('Минимум= ','a[',imin,',',jmin,']= ',min);
 
readkey;
end.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2009, 15:56
Ответы с готовыми решениями:

Поиск минимального и максимального элемента файла
Добрый день!! помогите пожалуйста с заданием:cry: Для файла s, состоящего из целых чисел,...

Поиск максимального и минимального элемента массива
поиск максимального и минимального элемента с помощью массива!

Поиск максимального и минимального элемента массива(с существенным дополнением)
Дан массив целых чисел. Найти в этом массиве минимальный элемент N и максимальный элемент M....

в массиве А [n] отрицательные элементы заменить на значение максимального элемента, нули – на значение минимального элемента.
в массиве А отрицательные элементы заменить на значение максимального элемента, нули – на значение...

1
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.05.2009, 16:34 2
Вы не прочитали введенные значения и выводить нечего. Чтобы прочитать числа, надо писать readln, а не read, либо, после того как ввели числа процедурой read в буфер памяти, то обязательно нужно их вытащить процедурой readln. Вообще если не умеете это делать, не пользуйтесь процедурой read, кроме как для чтения файлов. Вот поправил Вашу программу. Процедуру поставил впереди раздела переменных, чтоб не было глобальных переменных, так правильнее.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
program pr;
uses crt;
type
mas = array [1..30,1..30] of integer;
{процедура поиска max, min}
procedure search(a:mas;n,m:integer;var max,min,imax,jmax,imin,jmin:integer);
var i,j:integer;
begin
max:=a[1,1];
jmax:=1; imax:=1;
min:=a[1,1];
jmin:=1; imin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
    begin
     max:=a[i,j];
     imax:=i;
     jmax:=j
    end
else if a[i,j]<min then
    begin
     min:=a[i,j];
     imin:=i;
     jmin:=j
    end;
end;
 
{основная часть}
Var
a:mas;
n,m,j,i,mx,mn,imx,jmx,imn,jmn:integer;
begin
clrscr;
writeln('Введите размеры массива');
readln(n,m);
writeln('Введите ',n*m,' элементов массива');
For i:=1 to n do
For j:=1 to m do
read(a[i,j]);
readln;
clrscr;
writeln('Матрица:');
For i:=1 to n do
 begin
  For j:=1 to m do
  write(a[i,j]:4);
  writeln;
  end;         {ввод элементов массива}
search(a,n,m,mx,mn,imx,jmx,imn,jmn);
writeln('Максимальный элемент a[',imx,',',jmx,']=',mx:2);
writeln('Минимальный элемент  a[',imn,',',jmn,']=',mn:2);
readkey
end.
0
10.05.2009, 16:34
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.05.2009, 16:34
Помогаю со студенческими работами здесь

Поиск максимального/минимального элемента
Дан массив 20 элементов целого типа. Все значения элементов генерируются случайным образом и лежат...

Поиск максимального и минимального элементов в массиве за один цикл
Выполните поиск максимального и минимального элементов в массиве за один цикл

Перестановка в массиве максимального и минимального элемента
В квадратной матрице в каждой строке переставить ее максимальный и минимальный элементы

Поиск максимального и минимального элемента в матрице
program dz; uses crt; var a:array of integer; max,min,m,n,i,j:integer; begin writeln('введите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru