Дан одновременный массив, состоящий из 10 эллементов. Пользователь вводит элементы массива. Ввести массив на экран в строку. Найти минимальный элемент массива.

Ниже приведен рекомендованный вид экрана во время выполнения программы:

Вывод минимального элемента массива

Ввод элементов массива

Введите 1 элемент массива: 1

Введите 2 элемент массива: 2

Введите 3 элемент массива: 3 и т. д. до 10

Question

Информатика

Викторий

11 декабря, 19:23

Дан одновременный массив, состоящий из 10 эллементов. Пользователь вводит элементы массива. Ввести массив на экран в строку. Найти минимальный элемент массива.

Ниже приведен рекомендованный вид экрана во время выполнения программы:

Вывод минимального элемента массива

Ввод элементов массива

Введите 1 элемент массива: 1

Введите 2 элемент массива: 2

Введите 3 элемент массива: 3 и т. д. до 10

+4

Ответы (1)

Знаете ответ на вопрос?

Максюта · Answer 1

Program z1;

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:=mas[i];

end;

writeln ('Минимальный элемент: ', min) ;

end.