Массив с (8) вводится с клавиатуры. Найти наименьший элемент.

Question

Информатика

Антипа

19 февраля, 13:46

Массив с (8) вводится с клавиатуры. Найти наименьший элемент.

+5

Ответы (1)

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

Сюра · Answer 1

Program minmas;

var

c: array[1 ... 8] of integer;

i, min: integer;

begin

readln (c[1]) ;

min : = c[1];

for i : = 2 to 8 do

begin

readln (c[i]) ;

if c[i] < min then

min : = c[i];

end;

writeln ('Минимум: ', min) ;

end.