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

Question

Информатика

Линка

11 октября, 21:58

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

+2

Ответы (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.