Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
196 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 733
1

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

04.11.2018, 15:07. Показов 1824. Ответов 1
Метки нет (Все метки)

Выполнить поиск максимального и минимального элемента в массиве за один цикл. И их
индексы (индексы я добавил от себя).
Программа выполнена согласно заданной блок – схеме.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses Crt;
const N = 10;
type Mas = array [1..N] of Integer;
Var A: Mas;
        i, imax, [min: Integer;
begin
ClrScr;
Randomize;
   for i:= 1 to N do begin
     A[i]:= Random(101)50;
       write(A[i]:4);
    end;  Writeln;
{Блок поиска max и min  эл-тов и их индексов}
     imax:= 1;  imin:= 1;
    for i:= 2 to N do 
     if A[imax] < A[i] then  imax:= i;
        if A[imin] > A[i] then imin:= I;
writeln(‘ Мах  эл-т массива:,A[imax]:3);
writeln(‘ Его индекс:,imax);
writeln(‘ Min  эл-т массива:,A[imin]:3);
writeln(‘ Его индекс:,imin);
   ReadLn
end.
На выходе имеем:
Pascal
1
2
3
4
5
-6   46   38   10   37   -48   26   -28   14   -13
Мах эл-т массива:   46
Его индекс:   2
Min  эл-т массива:   -13
Его индекс:   10
И почему же минимальный элемент выдаётся неверный? Выдаёт последний элемент массива.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2018, 15:07
Ответы с готовыми решениями:

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

Поиск минимального и максимального элемента массива
Создать модуль обработки одномерного массива, который содержит: А)Тип, что описывает массив ...

Выполнить поиск максимального элемента произвольного вещественного массива
Разработать программу, обрабатывающую массивы. Выполнить поиск максимального элемента...

Дан массив A(m). Переписать в массив В все элементы, стоящие после максимального элемента и до минимального
Дан массив A(m). Переписать в массив В все элементы, стоящие после максимального элемента и до...

1
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
04.11.2018, 15:32 2
Pascal
1
2
3
4
imax:= 1;  imin:= 1;
for i:= 2 to N do
if A[imax] < A[i] then  imax:= i
else if A[imin] > A[i] then imin:= I;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2018, 15:32

Отсортировать массив от максимального до минимального элемента методом вставки
Задача 2. Создать с помощью генератора случайных чисел массив действительных чисел в диапазоне...

Выполнить поиск максимального элемента массива, вывести на экран его значение и «место» в массиве
Прошу помогите решить задачку!!!! Составить программу, которая формирует целочисленную матрицу...

Массив: Составить подпрограммы определения максимального и минимального элемента в одномерном массиве.
Составить подпрограммы определения максимального и минимального элемента в одномерном массиве....

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


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

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

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