Дан одновременный массив,состоящий из 10 эллементов.пользователь вводит элементы массива.ввести массив на экран в строку.найти минимальный элемент массива. ниже рекомендованный вид экрана во время выполнения программы: вывод минимального элемента массива ввод элементов массива введите 1 элемент массива: 1 введите 2 элемент массива: 2 введите 3 элемент массива: 3 и т.д. до 10
var mas:array[1..10] of integer;
var i,min:integer;
begin
for i:=1 to 10 do
begin
write('Введите ',i,' элемент массива: ');
readln(mas[i]);
end;
min:=mas[i];
for i:=1 to 10 do
begin
if(mas[i]<min) then
min:=mas[i];
end;
writeln('Минимальный элемент: ',min);
end.