Program Min5 var array A[1..5] of real var i, k : integer var min : real BEGIN for i := 1 to 5 do readln (A[i]); // Вводим массив k := 1; min := A[1]; // Начальные значения мин. эл-та и его номера for i := 2 to 5 do begin if A[i] < min then // Если элемент меньше минимального begin min := A[i]; // Устанавливаем новый минимальный элемент k := i; // И запоминаем его номер end; end; writeln ('A[', k, '] = ' min'); // Выводим минимум и его номер END.
Answers & Comments
Verified answer
Program Min5var array A[1..5] of real
var i, k : integer
var min : real
BEGIN
for i := 1 to 5 do readln (A[i]); // Вводим массив
k := 1; min := A[1]; // Начальные значения мин. эл-та и его номера
for i := 2 to 5 do
begin
if A[i] < min then // Если элемент меньше минимального
begin
min := A[i]; // Устанавливаем новый минимальный элемент
k := i; // И запоминаем его номер
end;
end;
writeln ('A[', k, '] = ' min'); // Выводим минимум и его номер
END.