Дан одновременный массив,состоящий из 10 эллементов.Пользователь вводит элементы массива.Ввести массив на экран в строку.Найти минимальный элемент массива. Ниже приведен рекомендованный вид экрана во время выполнения программы:...
Дан одновременный массив,состоящий из 10 эллементов.Пользователь вводит элементы массива.Ввести массив на экран в строку.Найти минимальный элемент массива.
Ниже приведен рекомендованный вид экрана во время выполнения программы:
Вывод минимального элемента массива
Ввод элементов массива
Введите 1 элемент массива: 1
Введите 2 элемент массива: 2
Введите 3 элемент массива: 3 и т.д. до 10
Гость
Ответ(ы) на вопрос:
Гость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]
Не нашли ответ?
Похожие вопросы