Найти наименьший элемент и его номер в последовательности, элемент которого вводятся с клавиатуры. Размер массива 10 чисел ... 8

Question

Информатика

Пульхерья

21 августа, 00:09

Найти наименьший элемент и его номер в последовательности, элемент которого вводятся с клавиатуры. Размер массива 10 чисел ... 8

+3

Ответы (1)

Знаете ответ?

Максюша · Answer 1

Uses Crt;

var

a:array[1 ... 10] of integer;

i:integer;

min, pos:integer;

BeginClrScr;

for i:=1 to 10 do begin

write ('Введите число массива: ') ;

Readln (a[i]) ;

end;

min:=a[i];

pos:=1;

for i:=2 to 10 do begin

if a[i]
min:=a[i];

pos:=i;

end;

end;

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

writeln ('позиция ', pos) ;

End.