Найти наименьший элемент и его номер в последовательности, элемент которого вводятся с клавиатуры. Размер массива 10 чисел............8
Answers & Comments
duzer73
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 then begin min:=a[i]; pos:=i; end; end; writeln('наименьший элемент ',min); writeln('позиция ',pos); End.
1 votes Thanks 1
duzer73
не забудь спасибо нажать ))), пойду курить
Answers & Comments
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 then begin
min:=a[i];
pos:=i;
end;
end;
writeln('наименьший элемент ',min);
writeln('позиция ',pos);
End.