Как найти наименьший элемент массива паскаль

Требуется написать программу, которая находит наименьший элемент массива. В качестве языка программирования выбран Паскаль (Pascal). Привожу исходный код программы с комментариями.

program MinElement;
const
  {количество элементов массива}
  N=10;
var
  i,j: integer;
  arr: array [1..N] of integer;
begin
  {заполняем массив случайными числами}
  for j:=1 to N do begin
    arr[j]:= random(100);
    {выводим элемент}
    write(arr[j], ' ');
  end;
  {пусть наименьшим будет первый элемент}
  i := 1;
  {перебираем элементы массива}
  for j:=2 to N do
    {если элемент является наименьшим, то запоминаем его номер}
    if arr[i] > arr[j] then i := j;
  {выводим наименьший элемент массива}
  writeln('element ', arr[i]);
end.

Количество элементов в массиве задается константой N.

Если Вам понравилась статья Pascal. Наименьший элемент массива, то пожалуйста, прокомментируйте ее или подпишитесь на фид и получайте будущие публикации по RSS. Поделитесь ссылкой на статью с друзьями при помощи социальных кнопок ниже.

кстати, насчёт оптимизации.
можно и так написать:

1
2
3
4
5
6
7
8
9
10
11
12
13

const n = 15;
var x: array[1..n] of integer;
  i, nom: integer;
begin
  nom := 1;
  for i := 1 to n do begin
    x[i] := random(100);
    write(x[i], ' ');
    if x[i] < x[nom] then nom := i;
  end;
  writeln;
  writeln('Значение ', x[nom], ', номер ', nom);
end.

но мне лично вариант, когда ввод/вывод и поиск в разных циклах (посты #2 #3) больше нравится, такой код легче отлаживать/сопровождать/дорабатывать и т.п.

Каждый выбирает то, что ему ближе/понятнее/удобнее!

Добавлено через 3 минуты
а вот и Вы и я забыли очень важную деталь — генератор ПСЧ обязательно нужно иницилизировать в начале программы через Randomize;!!!

1
2
3
4
5
6

const n = 15;
var x: array[1..n] of integer;
  i, nom: integer;
begin
   Randomize;
....

Поиск минимального (максимального) элемента массива

Алгоритм
поиска минимального (максимального)
элемента массива довольно очевиден:
делается предположение, что первый
элемент массива является минимальным
(максимальным), затем остальные элементы
массива сравниваются с этим элементом.
Если обнаруживается, что проверяемый
элемент меньше ( больше) принятого за
минимальный (максимальный) и продолжается
проверка оставшихся элементов. Ниже на
рис. 20 представлена блок-схема алгоритма
поиска минимального элемента в массиве
из 10 целых чисел.

Рис.20.
Блок-схема алгоритма поиска минимального
элемента.

Программа:

Program Example ;

Var

A
: Array[1..10] of integer ; { массив
целых
чисел
] ;

Min
: Integer ; { номер минимального элемента
массива }

i
: Integer ; { номер элемента сравниваемого
с минимальным}

Begin

WriteLn(‘ Введите 10
целых чисел в одной строке через пробел
‘) ;

for
i :=1 to 10 do ReadLn(A[i]) ; { Ввод
массива
целых
}

Min := A[1] ;

for i := 2 to 10 do

if A[i] < Min then Min :=
A[i] ;

WriteLn(‘ Минимальный
элемент массива : ‘, Min:3) ;

End.

Операции с матрицами

Матрицей
A размерности n 
m называется двумерный массив из n строк
и m столбцов :

где


элементы матрицы A.

Наиболее типичные
действия производимые над матрицами:

1. сложение матриц;

2. транспонирование
   матрицы;

3. умножение матриц.

Сложение матриц

Рассмотрим
на примере сложения двух матриц A и B
размерности 3  4.

Блок-схема алгоритма
сложения матриц представлена на рис.
21.

Рис.21.
Блок-схема алгоритма сложения матриц.

Программа:

program
Summa_matrix;

Const

m=4;

n=3;

Type

matrix
= array[1..n,1..m] of Integer;

Var

A,B,C
: matrix;

i,j
: Integer;

BEGIN

Writeln(‘Ввод
матрицы
A’);

for
i:= 1 to n do

begin

writeln(‘Cтрока’,i:2);

for j := 1 to m do

begin

write(‘Столбец’,j:2,’->’);

readln(A[i,j])

end;

end;

Writeln(‘Ввод
матрицы
B’);

for
i:= 1 to n do

begin

writeln(‘Cтрока’,i:2);

for j := 1 to m do

begin

write(‘Столбец’,j:2,’->’);

readln(B[i,j])

end;

end;

writeln(‘Матрица С
— сумма матриц A и B’) ;

for
i:= 1 to n do begin

for j := 1 to m
do begin

C[i,j]
:= A[i,j] + B[i,j] ;

write(C[i,j]:3)

end ;

writeln ;

end

End.

Транспонирование матрицы

Пусть
дана матрица

размерности n 
m. Матрица

размерности m 
n называется транспонированной к матрице
A, если ее элементы определены по формуле

.

Рассмотрим
пример транспонирования матрицы
размерности 2 
3.

Блок-схема алгоритма
транспонирования матрицы представлена
на рис. 22.

Рис.22.
Блок-схема алгоритма транспонирования
матрицы.

Программа:

program Transp_matrix;

Const

m=3;

n=2;

Var

A : array[1..n,1..m] of
integer;

B : array[1..m,1..n] of
integer;

i,j : Integer;

BEGIN

Writeln(‘Ввод
матрицы
A’);

for i:= 1 to n do

begin

writeln(‘Cтрока’,i:2);

for j := 1 to m do

begin

write(‘Столбец’,j:2,’->’);

readln(A[i,j])

end;

end;

writeln(‘Матрица B
— Транспонированная к матрице A’) ;

for
i:= 1 to m do begin

for
j := 1 to n do begin

B[i,j]
:= A[j,i] ;

write(B[i,j]:3)

end
;

writeln
;

end

End.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #

Найти минимальный элемент массива очень просто. Если это упорядоченный массив, то достаточно вернуть первое или последнее значение, в зависимости от того, как отсортированы данные, от наименьшего к наибольшему или от наибольших к наименьшим. Это очень простая задача.

В случае с неотсортированным массивом, задача поиска минимального значения элемента сводиться к полному обходу всех элементов и выбора из них — минимума.

Код программы для поиска минимального, по значению, элемента неупорядоченного массива

{$CODEPAGE UTF8}
program Minimal;
const
  arrayLength = 10;
var
  inputArray : array [1..arrayLength] of integer;
  minimum, i: integer;
begin
  randomize;
  writeln ('Исходный массив: ');
  {заполнение случайными числами}
  for i := 1 to arrayLength do
  begin
    inputArray[i] := random(100);
    write (inputArray[i]:4);
  end;
  writeln;

  {поиск минимального значения}
  {считаем что первый элемент и есть минимальный}
  minimum := inputArray[1];
  for i := 2 to arrayLength do
    if minimum > inputArray[i] then         {если минимум больше текущего}
      minimum := inputArray[i];             {присваиваем ему текущее значение}

  write('Минимальный элемент массива ', minimum);
  readln;
end.

Найти минимальное значение, можно также, с использованием рекурсивного алгоритма.

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

{$CODEPAGE UTF8}
program MinimalElement;
const
  arrayLen = 10;
var
  inputArr : array [1..arrayLen] of integer;
  min, i: integer;

function MinElement(minimal, index: integer):integer;
begin
  if index > arrayLen then
    MinElement := minimal
  else
    begin
      if inputArr[index] < minimal then
        minimal := inputArr[index];
      MinElement := MinElement(minimal, index + 1); {рекурсивный вызов}
    end;
end;

begin
  randomize;
  writeln ('Исходные данные: ');
  for i := 1 to arrayLen do
  begin
    inputArr[i] := random(100);
    write (inputArr[i]:4);
  end;
  writeln;

  {рекуррентный поиск минимального значения}
  min := inputArr[1];
  min := MinElement(min, 2);

  write('Минимальный элемент ', min);
  readln;
end.