Question

Вести з клавіатури масив з 5 елементів знайти мінімальних з них

Answer 1

Ответ:

const n=5;

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

i,min,max:integer;

 begin

  write('Введите 5 элементов и нажмите Enter');

for i:=1 to N do read(a[i]);  

readln;

min:=1;

max:=2;

for i:=1 to N do if a[i]< a[min] then min := i;

writeln('MIN = A[',min,'] = ', a[min]);

end.

Объяснение: программа "Pascal"