Дан одновременный массив,состоящий из 10 эллементов.Пользователь вводит элементы массива.Ввести массив на экран в строку.Найти минимальный элемент массива.
Ниже приведен рекомендованный вид экрана во время выполнения программы:
Вывод минимального элемента массива
Ввод элементов массива
Введите 1 элемент массива: 1
Введите 2 элемент массива: 2
Введите 3 элемент массива: 3 и т.д. до 10
Ниже приведен рекомендованный вид экрана во время выполнения программы:
Вывод минимального элемента массива
Ввод элементов массива
Введите 1 элемент массива: 1
Введите 2 элемент массива: 2
Введите 3 элемент массива: 3 и т.д. до 10
More Questions From This User See All
Answers & Comments
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.