Меню сайта

Задача №11
Дан массив из —n -элементов.Найти номер наименьшего элемента массива.
Program -mas_9-
Var a:array[1..1000] -of integer-
k,min,n,i:integer-
Begin
Writeln(‘введите размерность массива -‘)- Readln(n)-
randomize-
For i:=1 to n do
Begin
a[i]:=random(50)- write(a[i]:4)-
End-
min:=a[1]-k:=1-
For i:=1 to n do
If min&gt- a[i] then
begin
min:=a[i]-
k:=i-
end-
Writeln-
Writeln(‘­ Наименьший элемент =’,min)-
Writeln(‘­Номер наименьшего элемента =’,k)-
Readln-
End.
Категория: Массивы | Дата: 23.12.12

Меню раздела
Блок