Написать программу которая выводит минимальный элемент введенного с клавиатуры массива целых чисел

Question

Информатика

Кирилла

18 декабря, 07:02

Написать программу которая выводит минимальный элемент введенного с клавиатуры массива целых чисел

+2

Ответы (1)

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

Василиска · Answer 1

Program al;

var a: array[1 ... 100] of integer;

buf:integer;

i, n, min:integer;

begin

writeln ('n=') ;

readln (n) ;

writeln ('vvedite massiv=') ;

for i : = 1 to n do

readln (a[i]) ;

min:=a[1];

for i:=1 to n do

if a[i]
writeln ('mn=', min) ;

readln;

end.