Написать программу которая выводит минимальный элемент введенного с клавиатуры массива целых чисел
Написать программу которая выводит минимальный элемент введенного с клавиатуры массива целых чисел
Гость
Ответ(ы) на вопрос:
Гость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]