Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 52
1

Нахождение наименьшего элемента массива

30.04.2013, 10:30. Показов 1497. Ответов 3
Метки нет (Все метки)

Составьте программу нахождения наименьшего элемента двумерного массива A(N,M), большего данного T
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2013, 10:30
Ответы с готовыми решениями:

Нахождение наибольшего (наименьшего) элемента в векторе
Пожалуйста помогите до завтра надо сдать(((( 11 Даны массивы А(4) и С(6). Найти суммы...

Нахождение номера наименьшего положительного элемента в последовательности
Написать программу нахождения номера наименьшего положительного элемента в последовательности N...

Нахождение наименьшего по абсолютной величине элемента в одномерном массиве
Дан одномерный числовой массив. Найти наименьший по абсолютной величине элемент среди элементов,...

На место наименьшего элемента массива записать среднее арифметическое всех элементов массива
дан массив V(b1, b2, ..., b30). В элемент bi, содержащий наименьшее значение, записать среднее...

__________________
3
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,023
Записей в блоге: 1
30.04.2013, 12:03 2
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
Var A:array[1..20,1..20] of integer;
    i,j,n,m,imin,jmin,t:integer;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    write('Введите T: ');readln(t);
    For i:=1 to n do
    Begin
      For j:=1 to m do
       if A[i,j]>t then 
       Begin
         imin:=i;
         jmin:=j;
         break;
       End;
       if imin>0 then break;
    End;
    For i:=1 to n do
     For j:=1 to m do
      if (A[i,j]>t)and(A[i,j]<A[imin,jmin]) then
      Begin
        imin:=i;
        jmin:=j;
      End;
    if imin>0 then writeln('Min > заданного T = ',A[imin,jmin])
     else writeln('Нету элемента > T');
    readln;
End.
1
0 / 0 / 0
Регистрация: 25.03.2013
Сообщений: 52
04.05.2013, 12:30  [ТС] 3
CodeR, не могли бы мне объяснить подробнее данную задачку, что происходит в каждой строчке?
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,023
Записей в блоге: 1
04.05.2013, 14:08 4
Цитата Сообщение от Xmouse Посмотреть сообщение
CodeR, не могли бы мне объяснить подробнее данную задачку, что происходит в каждой строчке?
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
Var A:array[1..20,1..20] of integer;
    i,j,n,m,imin,jmin,t:integer;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;//заполнение матрицы числами от -15 до 15
        write(A[i,j]:4);//выводим поэлементно матрицу
      End;
      writeln;
    End;
    write('Введите T: ');readln(t);
    For i:=1 to n do // 1 - цикл
    Begin
      For j:=1 to m do// 2 - цикл
       if A[i,j]>t then //находим первый элемент больший t
       Begin
         imin:=i;//запоминаем его индекс строки
         jmin:=j;//запоминаем его индекс столбца
         break;//прерываем цикл 2
       End;
       if imin>0 then break; //прерываем цикл 1
    End;
    For i:=1 to n do
     For j:=1 to m do
      //если очередной элемент матрицы больше t и больше чем тот который щас min то
      if (A[i,j]>t)and(A[i,j]<A[imin,jmin]) then
      Begin
        //запоминаем индексы этого элемента
        imin:=i;
        jmin:=j;
      End;
    //если нашли min то выводим его
    if imin>0 then writeln('Min > заданного T = ',A[imin,jmin])
     else writeln('Нету элемента > T');
    readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.05.2013, 14:08

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Найти номер наименьшего элемента массива
Решить: Создать массив с именем А из 10-ти элементов, задав значения его элементов с помощью...

Найти номер наименьшего отрицательного элемента массива.
Дан массив из n элементов. Найти номер наименьшего отрицательного элемента массива.

Описать процедуру поиска наибольшего и наименьшего элемента массива
Описать процедуру поиска наибольшего и наименьшего элемента массива. С помощью этой процедуры...

Среди положительных элементов массива найти номер наименьшего элемента.
Добрый день!Помогите пожалуйста решить эту ,возможно, для Вас лёгкую зада4ку.. Задать одномерный...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.