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

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

Question

Информатика

Гурьян

20 апреля, 00:09

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

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

+1

Ответы (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.