Паскаль, Одномерный массив, найти наименьшее число
Знаток
(430),
на голосовании
10 лет назад
Голосование за лучший ответ
PaXa469
Знаток
(475)
10 лет назад
Ответ дам в Pascal ABC, разберёшься что к чему.
1. Задаём значения массива (Пусть имя массива – A)
2. Узнайм список элементов массива
L:=Length(A);
3. Находим наименьшее значение с помощью цикла: задаём минимальное значение первому элементу и сравниваем его с другими; если есть меньше, заменяем содержимое переменной min на другой элемент массива
min:=A[1];
for k:=2 to L do begin
if A[k]=min then
min:=A[k];
end;
writeln(min);
VoViK
Ученик
(84)
10 лет назад
var
A: array [1..9] of Integer;
i: Integer;
min: Integer;
begin
min := A[1];
for i:=2 to L do
begin
if A[k] = min then
min := A[k];
end;
Writeln(min);
end.
Александр Горбатов
Мыслитель
(6125)
10 лет назад
var
A: array [1..9] of integer;
i: integer;
min: integer;
mini: integer;
begin
for i:=1 to 9 do
readln(A)
min := A[1];
for i:=2 to 9 do
begin
if A < min then
begin
mini:=i;
min := A;
end;
end;
Writeln(‘минимальное число’);
Writeln(min);
Writeln(‘порядковый номер’);
Writeln(mini);
end.
Ниже представлен пример поиска минимального и максимального элемента в одномерном массиве на языке Pascal . В программе используются стандартные константы языка Free Pascal
— MaxInt содержит самое большое целое число (32,767)
— MaxLongint содержит самое большое двойное целое (2,147,483,647)
var a:array[1..5] of integer;
min:integer;
max:integer;
i:integer;
begin
writeln('введите 5 элементов массива');
min:=MAXINT;
max:=not(MAXINT);
for i:=1 to 5 do begin
readln( a[i] );
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
writeln( 'Минимальный элемент массива = ', min );
writeln( 'Максимальный элемент массива = ', max );
end.
Ниже представлен пример поиска минимального и максимального элемента в двумерном массиве на языке Pascal . Дополнительно подключение генератор простых чисел для быстрого заполнения данных.
var a:array[1..3,1..3] of integer;
min:integer;
max:integer;
i,j:integer;
begin
randomize;
writeln('Искомый массив 3 на 3');
for i:=1 to 3 do
for j:=1 to 3 do begin
a[i,j]:=random(100);
if j<>3 then write(' ', a[i,j]) else writeln(' ',a[i,j]);
end;
min:=MAXINT;
max:=not(MAXINT);
for i:=1 to 3 do
for j:=1 to 3 do begin
if min>a[i,i] then min:=a[i,j];
if max<a[i,j] then max:=a[i,j];
end;
writeln( 'Минимальный элемент массива = ', min );
writeln( 'Максимальный элемент массива = ', max );
end.
Раздел:
Задачи /
Простейшие /
Найти наименьший элемент массива
|
|
Основы программирования Каждый профессионал когда-то был чайником. Наверняка вам знакомо состояние, когда “не знаешь как начать думать, чтобы до такого додуматься”. Наверняка вы сталкивались с ситуацией, когда вы просто не знаете, с чего начать. Эта книга ориентирована как раз на таких людей, кто хотел бы стать программистом, но совершенно не знает, как начать этот путь. Подробнее… |
Условие задачи 2.49
Задача 2.49
Дан одномерный массив А неупорядоченных целых чисел. Вывести на экран числа массива, а также найти и вывести на экран наименьшее значение для всех элементов массива. Также вывести номер (индекс) наименьшего элемента в массиве.
Первым делом обращаем внимание на то, что массив не упорядочен (не отсортирован). То есть значения элементов в массиве хранятся “как попало”.
Соответственно, такой массив надо создать. Способа два: вводить значения элементов вручную, либо создать массив программно. Разумеется, сделаем это программно – заполним массив случайными значениями.
Второе – в массиве целые числа. Но целые числа могут быть также и отрицательными. Поэтому при заполнении массива случайными числами это желательно предусмотреть.
Поиск наименьшего значения в массиве
Теперь о том, как будем искать. Есть два относительно простых способа:
- Отсортировать массив по возрастанию значений. Тогда первый элемент массива будет наименьшим. Однако этот способ сам по себе не слишком простой, к тому же в задаче сказано, что надо получить кроме значения ещё и номер элемента. А при сортировке номера изменятся, и это потеряет смысл (либо придётся запоминать старые номера).
- Перебирать все элементы массива и искать самый меньший.
Мы воспользуемся вторым способом.
Сначала во временной переменной MinA сохраним наибольшее возможное значение типа данных, которому принадлежат элементы массива. Затем будем перебирать все элементы массива и сравнивать его с этим значением. Если значение текущего элемента меньше или равно значению MinA, то в переменную MinA запишем значение текущего элемента. И так далее, пока не переберём все элементы массива.
Почему меньше или равно, а не меньше? Дело в том, что теоретически (хотя и почти невозможно в нашем случае), все элементы массива могут содержать наибольшее значение для выбранного типа данных. И тогда, если проверять на “меньше”, программа не выведет никакой итог (либо придётся усложнять программу).
Решение задачи 2.49 на Паскале
program mytask;
//****************************************************************
// КОНСТАНТЫ
//****************************************************************
const
MAX_A = 16;
//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
var
i : byte; //Индекс
MinA : byte; //Наименьшее значение в массиве
MaxInt : ShortInt; //Наибольшее значение типа
MinInt : ShortInt; //Переменная для поиска
A : array[1..MAX_A] of ShortInt; //Массив
//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
MaxInt := High(MaxInt); //Получить наибольшее значение типа
randomize; //Запустить генератор случайных чисел
//Создать массив и вывести на экран
for i := 1 to MAX_A do
begin
A[i] := random(MaxInt) - (MaxInt div 3);
WriteLn(A[i]);
end;
//Найти наименьший элемент в массиве
MinInt := MaxInt;
for i := 1 to MAX_A do
if A[i] <= MinInt then
begin
MinInt := A[i];
MinA := i;
end;
//Вывести решение на экран
WriteLn('Problem solution:');
WriteLn(' The smallest value in the array: ', MinInt);
WriteLn(' Index of the element with the lowest value: ', MinA);
WriteLn('The end. Press ENTER...');
ReadLn;
end.
Решение задачи 2.49 на С++
#include <cstdlib>
#include <iostream>
const int MAX_A = 16;
using namespace std;
char i; //Индекс
char MinA; //Наименьшее значение в массиве
char MaxInt; //Наибольшее значение типа
char MinInt; //Переменная для поиска
char A[MAX_A-1]; //Массив
//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
int main(int argc, char *argv[])
{
MaxInt = CHAR_MAX; //Получить наибольшее значение типа
srand(time(0)); //Запустить генератор случайных чисел
//Создать массив и вывести на экран
for(i = 0; i < MAX_A; i++)
{
A[i] = (rand() % MaxInt) - (MaxInt / 3);
cout << int(A[i]) << endl;
}
//Найти наименьший элемент в массиве
MinInt = MaxInt;
for(i = 0; i < MAX_A; i++)
if(A[i] <= MinInt)
{
MinInt = A[i];
MinA = i;
}
//Вывести решение на экран
cout << "Problem solution:" << endl;
cout << " The smallest value in the array: " << int(MinInt) << endl;
cout << " Index of the element with the lowest value: "
<< int(MinA) << endl;
system("PAUSE");
return EXIT_SUCCESS;
}
ПРИМЕЧАНИЕ
Не забывайте, что в С++ индексация массива начинается с нуля.
|
|
Как стать программистом 2.0
Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… |
|
|
Помощь в технических вопросах
Помощь студентам. Курсовые, дипломы, чертежи (КОМПАС), задачи по программированию: Pascal/Delphi/Lazarus; С/С++; Ассемблер; языки программирования ПЛК; JavaScript; VBScript; Fortran; Python и др. Разработка (доработка) ПО ПЛК (предпочтение – ОВЕН, CoDeSys 2 и 3), а также программирование панелей оператора, программируемых реле и других приборов систем автоматизации. |
Минимум в некоторой последовательности чисел это наименьшее значение. Например, среди чисел последовательности 431, 85, 200, 125 минимумом является число 85. Если числа последовательности сохранить в массиве, то можно найти номер минимального элемента массива.
Сохраним числа в массиве: a[1]=431, a[2]=85, a[3]=200, a[4]=125.
Минимум хранится в ячейке с номером 2, значит номер минимального элемента это число 2.
В этой публикации приведем примеры программ поиска номера минимального элемента массива.
Будем считать, что в массиве хранятся целые числа, диапазон значений не известен.
Исходные данные: a – массив целых чисел
Выходные данные: min – минимальный элемент, kmin – номер минимального элемента массива
За начальное значение минимума min возьмем значение первого элемента, тогда за номер минимального элемента kmin возьмем номер 1.
Далее будем сравнивать каждый элемент массива со значением min, если a[k]<min, то перезапишем значение min на значение a[k], а значение kmin на значение k.
Программа решения на языке Паскаль
var a:array[1..10] of integer;
k,min,kmin:integer;
begin
for k:=1 to 10 do
begin
read(a[k]);
end;
min:=a[1];
kmin:=1;
for k:=2 to 10 do
begin
if a[k]<min then
begin
min:=a[k];
kmin:=k;
end;
end;
writeln(‘Минимальный элемент ‘,min);
writeln(‘Номер минимального элемента массива ‘,kmin);
end.
Результат выполнения программы
Чтобы не вводить значения элементов массива с клавиатуры, можно воспользоваться датчиком случайных чисел.
Еще одна программа
Теперь не будем сохранять само минимальное значение, а будем пользоваться номером минимального элемента.
За номер минимального элемента kmin возьмем 1. Далее будем сравнивать a[k]<a[kmin], в случае истины, будем перезаписывать kmin на k.
Программа решения на языке Паскаль
var a:array[1..10] of integer;
k,min,kmin:integer;
begin
for k:=1 to 10 do
begin
read(a[k]);
end;
kmin:=1;
for k:=2 to 10 do
begin
if a[k]<a[kmin] then
begin
kmin:=k;
end;
end;
writeln(‘Минимальный элемент ‘,a[kmin]);
writeln(‘Номер минимального элемента массива ‘,kmin);
end.
Еще одна программа с применением методов последовательностей PascalABC.NET
a.min – определяет минимальное значение в массиве
a.indexof(a.min) – определяет номер элемента, равного минимальному
Массив описан как динамический (не указываются номера элементов, нумерация начинается с 0). Оператор setlength(a,10) выделяет память под массив (десять ячеек).
var a:array of integer;
k:integer;
begin
setlength(a,10);
for k:=0 to 10-1 do
begin
read(a[k]);
end;
writeln(‘Минимальный элемент ‘,a.min);
writeln(‘Номер минимального элемента массива ‘,a.indexof(a.min));
end.
Как еще можно найти номер минимального элемента массива?
Предложите свои способы.
Читайте также:
В этой статье рассмотрены два способа нахождения минимального (максимального) элемента массива, а также задачи с применением этих способов.
1 способ
| Задача 1: Дан одномерный массив, состоящий из n целых чисел. Найти минимальный элемент массива. В первой строке вводится количество чисел в массиве n. Затем выводятся сами числа, заданные случайным образом. В третьей строке выводится результат: минимальный элемент массива. | |
|
Исходные данные: |
Результат: |
|
10 |
-4 |
|
10 |
0 |
Считаем, что первый элемент массива – минимальный. Затем, сравниваем, начиная со второго до последнего все элементы массива с минимальным. Используем для этого цикл. Если очередной элемент на каком-то шаге цикла оказывается меньше минимального, то значение минимального изменяем, присвоив ему значение этого очередного элемента. По окончании цикла выводим результат: минимальный элемент.
program min1;
var a:array[1..100] of integer;
i,min,n:integer;
begin
//заполнение массива и вывод массива в строчку
readln(n);
for i:=1 to n do begin
a[i]:=random(-100,100);
write(a[i],’ ‘);
end;
//нахождение минимального элемента массива
min:=a[1];
for i:=2 to n do
if min>=a[i] then min:=a[i];
//вывод результата
writeln;
write(min);
end.
Заметим, что для нахождения максимального элемента массива достаточно заменить имя переменной min на max и знак >= на знак <=.
|
Задача 2: Дан одномерный массив, состоящий из n целых чисел. Найти индекс минимального элемент массива. В первой строке вводится количество чисел в массиве n. Затем выводится массив, заданный случайным образом. В третьей строке выводится результат: индекс минимального элемент массива. |
|
|
Исходные данные: |
Результат: |
|
10 |
5 |
|
10 |
9 |
Если в задаче требуется найти индекс минимального (максимального), то вводим переменную imin, в которую будем запоминать индекс минимального (максимального), причем первоначально ее значение равно 1.
program min2;
var a:array[1..100] of integer;
i,min,n,imin:integer;
begin
//заполнение массива и вывод массива в строчку
readln(n);
for i:=1 to n do begin
a[i]:=random(-100,100);
write(a[i],’ ‘);
end;
//нахождение индекса минимального элемента массива
min:=a[1];
imin:=1;
for i:=2 to n do
if min>=a[i] then begin
imin:=i;
min:=a[i];
end;
//вывод результата
writeln;
write(imin);
end.
Если в массиве есть несколько равных между собой минимальных элементов, то данная программа найдет номер последнего (правого) элемента. Для того чтобы найти индекс первого (левого) элемента достаточно изменить знак >= на строгий знак >.
Эту программу можно оптимизировать, так как, зная индекс минимального элемента, можно найти значение минимального элемента массива. Значит, переменная min не нужна:
var a:array[1..100] of integer;
i,n,imin:integer;
Фрагмент нахождения индекса минимального элемента массива выглядит так:
imin:=1;
for i:=2 to n do
if a[imin]>=a[i] then imin:=i;
| Задача 3: Дан одномерный массив, состоящий из n целых чисел. Найти количество минимальных элементов массива. В первой строке вводится количество чисел в массиве n. Затем выводится массив, заданный случайным образом. В третьей строке выводится результат: количество минимальных элементов массива. | |
|
Исходные данные: |
Результат: |
|
10 |
2 |
|
10 |
3 |
program min3;
var a:array[1..100] of integer;
i,min,n,k:integer;
begin
//заполнение массива и вывод массива в строчку
readln(n);
for i:=1 to n do begin
a[i]:=random(-5,5);
write(a[i],’ ‘);
end;
//нахождение минимального элемента массива
min:=a[1];
for i:=2 to n do
if min>=a[i] then
min:=a[i];
//считаем количество равных элементов
k:=0;
for i:=1 to n do
if a[i]=min then k:=k+1;
//вывод результата
writeln;
write(k);
end.
| Задача 4: Дан целочисленный массив из n элементов. Элементы массива могут принимать целые значения от 0 до 1000. Напишите программу, находящую минимальное значение среди элементов массива, которые имеют чётное значение и не делятся на четыре. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого чётно и не кратно четырем. В первой строке вводится количество чисел в массиве n. Затем выводится массив, заданный случайным образом. В третьей строке выводится результат: минимальное значение среди элементов массива, которые имеют чётное значение и не делятся на четыре. | |
|
Исходные данные: |
Результат: |
|
10 |
-6 |
|
10 |
-10 |
В этой задаче первый способ нахождения минимального не подойдет. Первый элемент массива может оказаться меньше, чем минимальный четный и не кратный четырем и программа выведет неверный результат. Каким должно быть начальное значение переменной min? Его нужно выбрать таким, чтобы для первого же «подходящего» элемента выполнилось условие a[i] < min, и это «временное» начальное значение было бы заменено на реальное. Такое «подходящее» обязательно будет, так как это гарантировано условием задачи. Оно должно быть большим и таким, какое не может быть по условию задачи, например, 1001.
Кроме того заметим, что задавать элементы массива нужно с клавиатуры, чтобы обеспечить условия задачи.
Итак, находим минимальный элемент вторым способом.
2 способ
Записываем в переменную min значение 1001. Затем в цикле просматриваем все элементы массива, с первого до последнего. Если остаток от деления очередного элемента на 2 равен 0 и остаток от его деления на 4 не равен нулю и значение элемента меньше, чем значение переменной min, сохраняем в переменную min значение очередного элемента массива. После окончания работы цикла выводим значение переменной min.
program min4;
var a:array[1..100] of integer;
i,min,n:integer;
begin
//заполнение массива и вывод массива в строчку
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
write(a[i],’ ‘);
//нахождение минимального элемента массива
min:=1001;
for i:=1 to N do
if (a[i] mod 2=0) and (a[i] mod 4 <> 0) and (a[i]<min) then
min:=a[i];
//вывод результата
writeln;
write(min);
end.
Проверяем на тестах:
| 10 411 837 755 90 520 203 581 798 401 640 |
90 |
|
10 |
658 |
Конечно, решить эту задачу можно и первым способом, но для нахождения первого значения min нужно написать дополнительные команды поиска. Вот таким может быть решение:
program min5;
var a:array[1..100] of integer;
i,min,n,j:integer;
begin
//заполнение массива и вывод массива в строчку
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
write(a[i],’ ‘);
//нахождение первого четного и не кратного 4 числа
i:=1;
while (i<=n)and not((a[i] mod 2=0) and (a[i] mod 4 <> 0)) do i:=i+1;
//в переменной i запомнился номер первого элемента, удовлетворяющего условию
//нахождение минимального, начиная со следующего за найденным
min:=a[i];
for j:=i+1 to N do
if (a[j] mod 2=0) and (a[j] mod 4 <> 0) and (a[j]<min) then
min:=a[j];
//вывод результата
writeln;
write(min);
end.
| Задача 5: Дан целочисленный массив из n элементов. Элементы массива могут принимать произвольные целые значения. Напишите программу, которая находит и выводит второй максимум массива (элемент, который в отсортированном по невозрастанию массиве стоял бы вторым). | |
|
Исходные данные: |
Результат: |
|
10 |
14 |
|
10 |
45 |
Мы знаем, как найти первый максимум, а в этой задаче нужно найти второй по величине максимум. Попробуем это сделать это за один проход по массиву. Нам нужны две переменные, max1 (максимальный элемент) и max2 (второй максимум). Сначала выбираем максимальный из первых двух элементов и записываем его значение в max1, а второй по величине записываем в max2.
Затем в цикле перебираем все элементы, начиная с 3-го до последнего. Если очередной элемент a[i] больше, чем max1, записываем значение max1 в max2 (предыдущий максимум становится вторым), а значение a[i] – в max1. Иначе, если a[i] больше, чем max2, записываем значение a[i] в max2. После завершения цикла выводим значение переменной max2.
program min6;
var a: array [1..100] of integer;
i, k,n, max1, max2: integer;
begin
//заполнение массива и вывод массива в строчку
readln(n);
for i:=1 to n do begin
a[i]:=random(0,100);
write(a[i],’ ‘);
end;
//начальные значения max1 и max2
if a[1] > a[2] then begin
max1:=a[1]; max2:=a[2]
end
else begin
max1:=a[2]; max2:=a[1]
end;
// поиск второго максимального
for i:=3 to N do
if a[i] > max1 then begin
max2:= max1;
max1:= a[i]
end
else
if a[i] > max2 then max2:=a[i];
//вывод результата
writeln;
writeln(max2);
end.
| Задача 6: Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от 1 до 10000 включительно. Напишите программу, позволяющую найти и вывести минимальный элемент массива, шестнадцатеричная запись которого содержит ровно две цифры, причём первая (старшая) цифра больше второй (младшей). Если таких чисел нет, нужно вывести ответ 0. | |
|
Исходные данные: |
Результат: |
|
20 |
14 |
|
10 |
45 |
Эта задача усложнена только тем, что элементы массива должны быть в диапазоне от 16 до 255. В этом случае первая цифра находится как результат деления нацело на 16, а вторая цифра – как остаток от деления на 16.
Кроме этого здесь массив можно объявить через константу n, так как размер массива задан явно: 20 элементов.
program z6;
//объявление массива через константу
const n=20;
var a: array [1..n] of integer;
i,min: integer;
begin
//заполнение массива и вывод массива в строчку
for i:=1 to n do begin
a[i]:=random(0,10000);
write(a[i],’ ‘);
end;
writeln;
min := 10001;
for i := 1 to n do begin
//для проверки правильности программы выведем две шестнадцатеричные цифры:
//write(a[i] div 16,a[i] mod 16,’ ‘);
if (16 <= a[i]) and (a[i] < 256) and (a[i] div 16 > a[i] mod 16) and (a[i] < min) then
min := a[i];
end;
writeln;
//вывод результата
if min = 10001 then
writeln(0)
else
writeln(min);
end.
Задачи для самостоятельного решения:
- Дан целочисленный массив из n элементов. Элементы могут принимать значения от 150 до 210 – рост учащихся выпускного класса. В волейбольную команду берут тех, чей рост не менее 170 см. Напишите программу, которая определяет и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде.
- Дан целочисленный массив из n элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса за экзамен по информатике. Для получения положительной оценки за экзамен требовалось набрать не менее 50 баллов. Напишите программу, которая находит и выводит минимальный балл среди учащихся, получивших за экзамен положительную оценку. Известно, что в классе хотя бы один учащийся получил за экзамен положительную оценку.
- Дан целочисленный массив – сведения о температуре за каждый день октября. Элементы массива могут принимать целочисленные значение значения от -15 до 20. Напишите программу, которая находит и выводит максимальную температуру среди дней, когда были заморозки (температура опускалась ниже нуля). Гарантируется, что хотя бы один день в октябре была отрицательная температура.
- Дан целочисленный массив из n элементов, все элементы которого – неотрицательные числа, не превосходящие 10000. Напишите программу, которая находит и выводит минимальное трехзначное число, записанное в этом массиве. Если таких чисел нет, нужно вывести сообщение «Таких чисел нет».
- Дан целочисленный массив из n элементов. Элементы массива могут принимать целые значения от 1 до 10000 включительно. Напишите программу, позволяющую найти и вывести наибольший из элементов массива, шестнадцатеричная запись которого оканчивается на букву F. Если таких чисел нет, нужно вывести ответ 0.
- Дан целочисленный массив из n элементов. Элементы массива могут принимать произвольные целые значения. Напишите программу, которая находит и выводит номера двух элементов массива, сумма которых минимальна.
- Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от 1 до 10000 включительно. Напишите программу, находящую минимальный элементов массива, шестнадцатеричная запись которого содержит ровно две цифры, причём вторая (младшая) цифра – это буква (от A до F). Если таких чисел нет, нужно вывести ответ 0.
Источники информации
- Угринович Н.Д. Информатика и информационные технологии. Учебник для 10-11 классов/ Н.Д. Угринович. – М.:Бином. Лаборатория знаний, 2005.
- Сайт К. Полякова http://kpolyakov.spb.ru/school/ege.htm
