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