-27 / 0 / 0
Регистрация: 10.11.2014
Сообщений: 41
1

Найти максимальный и минимальный элемент двумерного массива

09.12.2014, 20:13. Показов 5916. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Всем доброго времени суток, срочно нужна помощь. Надо сделать программу в Паскале, а я не совсем шарю... В общем вот.
Найти максимальный и минимальный элемент двумерного массива.
В заранее выражаю огромную благодарность.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2014, 20:13
Ответы с готовыми решениями:

Найти минимальный элемент двумерного массива 10х10
найти минимальный элемент двумерного массива 10х10

Найти минимальный и максимальный элемент массива
Написала программу для данной задачи:"Описать функцию Min(A,N) и Max(A,N) вещественного типа,...

Сформировать одномерный массив считыванием данных из файла, и найти максимальный и минимальный элемент массива
Помогите плиз! Сформировать одномерный массив считыванием данных из файла, и найти максимальный и...

Написать модуль, который находит максимальный и минимальный элементы двумерного массива
Написать модуль, который находит максимальный и минимальный элементы двумерного массива и выводит...

3
0 / 0 / 1
Регистрация: 12.01.2014
Сообщений: 1
09.12.2014, 23:38 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  i,j,x,n,m,min,max : longint;
begin
  readln(n);
  readln(m);
  min:=2000000000;
  max:=-2000000000;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      readln(x);
      if min>x then min:=x;
      if max<x then max:=x;
    end;
  end;
  writeln(min,' ',max);
end.
0
1 / 1 / 1
Регистрация: 28.11.2014
Сообщений: 46
09.12.2014, 23:42 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вот отсюда дерни нужный код с:
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
55
56
57
58
59
60
61
62
63
{ПО-41 СВЯЯЯЯЗЬ}
program lb7;
uses crt;
var T:array [1..50,1..50] of real;
    n,m,i,j,
    imax,jmax,
    imin,jmin:byte;
    Max,Min,sr:real;
    
begin
write('Количество строк: ');
readln(n);
write('Количество столбцов: ');
readln(m);
For i:=1 to n do
 begin
   for j:=1 to m do
    begin
       T[i,j]:=random(80)-49;
     end;
 end;
writeln;
for i:=1 to n do
  begin
    for j:=1 to m do
    write(T[i,j]:4);
    writeln;
  end;
writeln;
Max:=T[1,1];
  imax:=1;
  jmax:=1;
  for i:=1 to n do
    for j:=1 to m do
    if T[i,j]>Max then
    begin
    Max:=T[i,j];
    imax:=i;
    jmax:=j;
    end;
      writeln( 'T(max)[',imax,',',jmax,']=',Max);   
 
  min:=T[1,1];
  imin:=1;
  jmin:=1;
  for i:=1 to n do
    for j:=1 to m do
    if T[i,j]<Min then
    begin
    Min:=T[i,j];
    imin:=i;
    jmin:=j;
    end;
      writeln( 'T(min)[',imin,',',jmin,']=',Min);
      writeln;
      
If imin=imax Then
 Writeln('Минимальное и максимальное значения находятся в одной строке №',imin);
      
sr:=(Max+Min)/2;
writeln('Среднее арифметическое максимального и минимального значений: ',sr);
writeln;
end.
0
-27 / 0 / 0
Регистрация: 10.11.2014
Сообщений: 41
10.12.2014, 07:40  [ТС] 4
Большое спасибо )))
0
10.12.2014, 07:40
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2014, 07:40
Помогаю со студенческими работами здесь

Вывести минимальный и максимальный элемент массива заданного размера
ввести с клавиатуры размерность одномерного динамического массива, затем создать его с рандомными...

Используя функцию swap поменять местами максимальный и минимальный элемент массива
Нужно задать массив и используя функцию swap поменять местами максимальный и минимальный элемент.

Массив: В каждой строке массива заменить любой минимальный элемент на максимальный.
Дан двумерный массив целых чисел. 1) В каждой его строке заменить любой минимальный элемент на...

В целочисленном массиве найти минимальный элемент среди нечетных и максимальный элемент среди четных элементов
Помогите пожалуйста :help: Задание: В целочисленном массиве X найти минимальный элемент среди...


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

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

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