Ввести с клавиатуры массив из 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.
Пример:
Введите пять чисел:
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.
More Questions From This User See All
Answers & Comments
Verified answer
>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.