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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.