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

Question

Информатика

Евдоким

3 апреля, 07:12

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

+2

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