Ввести c клавиатуры массив из 5 элементов, найти минимальный из них.


Пример:


Введите пять чисел:


4 15 3 10 14


минимальный элемент 3




1

Ответы и объяснения

  • Sky09
  • профессор
2013-10-21T19:41:18+04:00
Uses crt;
var a:array[1..5] of integer; i,min:integer;
begin
  writeln('Введите пять чисел:');
  for i:=1 to 5 do
    read(a[i]);
  min:=a[1];
  for i:=1 to 5 do
    if a[i]<min then min:=a[i];
  writeln;
  write('минимальный элемент ',min);
end.