Ввести с клавиатуры массив из 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.
>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.