Question

Ввести с клавиатуры массив из 5 элементов,найти минимальный из них. Пример: Введите пять чисел: 4 15 3 10 14 минимальный элемент 3 РЕБЯТКИ Я ПЫТАЛАСЬ, НО ЭТА ПРОГА НЕ ПРАВИЛЬНАЯ, ПОЖАЛУЙСТА ИСПРАВЬТЕ ЧТО НЕ ТАК! Program qq; var a:array[1..5] of integer; min, i: 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[1]; writeln('Минимальный элемент: ', min); end.

Answer 1

>if a[i] < min then min:=a[1];
>if a[i] < min then min:=a[i];


Program qq;
var a:array[1..5] of integer;
min, i: 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('Минимальный элемент: ', min);
end.