Составить программу, которая находит и выводит на экран наименьший элемент массива. Массив вводится с клавиатуры и состоит из 15 элементов. Язык Паскаль.

Question

Информатика

Никифор

5 июня, 18:44

Составить программу, которая находит и выводит на экран наименьший элемент массива. Массив вводится с клавиатуры и состоит из 15 элементов. Язык Паскаль.

+5

Ответы (1)

Знаете ответ на вопрос?

Мартин · Answer 1

Var mas: array [1 ... 15] of longint; i, min: longint;

begin for i : = 1 to 15 do read (mas[i]) ; min : = mas[1]; for i : = 2 to 15 do if (min > mas[i]) then min : = mas[i]; writeln (min) ; end.