Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Irochka_sever
0 / 0 / 0
Регистрация: 22.05.2015
Сообщений: 4
#1

Построить и записать алгоритм определения минимального элемента и его индекса в столбцах матрицы - Turbo Pascal

22.01.2016, 09:28. Просмотров 384. Ответов 1
Метки нет (Все метки)

Всем добрый день! Я с просьбой!

Задание: построить и записать алгоритм определения минимального элемента и его индекса в столбцах матрицы MxN

Кажется я где-то свернула не туда) Глаз замылился уже, помогите, плиз )
Заранее спасибо.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
    ar: Array[1..n, 1..m] Of LongInt;
    i, j, minI, minJ: 1..n, 1..m;
begin
    Randomize; minI := 1; minJ := 1;
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
            if (ar[minI, minJ] > ar[i, j])
            then
            begin
                minI := i;
                minJ := j;
            end;
        end;
        WriteLn;
    end;
    WriteLn;
    WriteLn('min elem at [', minI, '][', minJ, ']=', ar[minI, minJ]);
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.01.2016, 09:28
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Построить и записать алгоритм определения минимального элемента и его индекса в столбцах матрицы (Turbo Pascal):

дан вектор А (N). написать программу нахождения минимального элемента вектора и его индекса. если индекс элемента парный, то часть вектора перед миним - Pascal
дан вектор А (N). написать программу нахождения минимального элемента вектора и его индекса. если индекс элемента парный, то часть вектора...

Дан массив А из 10 элементов. Составить программу для нахождения минимального элемента массива и его индекса - Turbo Pascal
Дан массив А из 10 элементов. Составить программу для нахождения минимального элемента массива и его индекса.

Составить программу определения минимального элемента матрицы А(3Х5). Элементы матрицы – целые числа - Turbo Pascal
Составить программу определения минимального элемента матрицы А(3Х5). Элементы матрицы – целые числа.

Процедура для определения минимального элемента матрицы - Turbo Pascal
Используя данную процедуру, определить значение минимального элемента заданной матрици Q и, если оно отлично от нуля, увеличить каждый...

Составить функцию для определения минимального элемента матрицы NxN - Turbo Pascal
Составить функцию для определения минимального элемента матрицы NxN. используя данную функцию, определить значение минимального элемента...

Напишите программу определения индексов для максимального (минимального) элемента введенной матрицы - Turbo Pascal
Напишите программу определения индексов (номер строки и столбца) для максимального (минимального) элемента введенной матрицы.

1
Puporev
Модератор
52377 / 40224 / 13562
Регистрация: 18.05.2008
Сообщений: 92,961
22.01.2016, 10:39 #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
var
    ar: Array[1..20, 1..20] Of integer;
    n, m,i, j, minI, minJ: 1..20;
begin
writeln('Введите размеры матрицы от 1 до 20');
readln(n,m);
Randomize;
minI := 1;
minJ := 1;
for i := 1 to n do
 begin
  for j := 1 to m do
   begin
    ar[i, j] := Random(199) - 99;
    Write(ar[i, j]:4);
    if (ar[minI, minJ] > ar[i, j]) then
     begin
      minI := i;
      minJ := j;
     end;
   end;
  WriteLn;
 end;
WriteLn('min elem at [', minI, '][', minJ, ']=', ar[minI, minJ]);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2016, 10:39
Привет! Вот еще темы с ответами:

Составить программу определения максимального элемента матрицы и его координат - Turbo Pascal
Составить программу определения максимального элемента матрицы В(6Х4) и его координат. Элементы матрицы – действительные числа.

Поиск индекса минимального элемента - Turbo Pascal
Вводится квадратная матрица с клавиатуры( не более 10 чисел). Найти и вывести индекс минимального элемента третьей четверти.

Описать рекурсивную функцию поиска индекса минимального элемента массива. - Pascal
Описать рекурсивную функцию поиска индекса минимального элемента массива. program tyu; var a:array of integer; n,i,min,k:integer;...

Найти сумму значения и индекса минимального положительного элемента массива - Pascal
Найти сумму минимального положительного элемента массива О(14) и его номера


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

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

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