Дан массив из 8 целочисленных элементов. Элементы вводятся с клавиатуры (все элементы

различны). Найти минимальный элемент численного массива и его порядковый номер.

Question

Информатика

Агапит

19 апреля, 00:11

Дан массив из 8 целочисленных элементов. Элементы вводятся с клавиатуры (все элементы

различны). Найти минимальный элемент численного массива и его порядковый номер.

+5

Ответы (1)

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

Максимка · Answer 1

Program n1;

var a:array[1 ... 8] of integer;

min, i:integer;

begin

writeln ('Введите массив из 8 целочисленных элементов:') ;

read (a[1]) ;

min:=1;

for i:=2 to 8 do

begin

read (a[i]) ;

if a[i]
end;

writeln ('Минимальный элемент данного массива: ', a[min]) ;

writeln ('Его порядковый номер: ', min) ;

end.