Составить программу, которая находит и выводит на экран наименьший элемент массива. Массив вводится с клавиатуры и состоит из 15 элементов. Язык Паскаль.
Answers & Comments
Incaze
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.
Answers & Comments
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.