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

Влад09090 Влад09090    2   22.08.2019 15:20    2

Ответы
>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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика