Дан массив из —n -элементов. —Найти наименьший элемент массива.
Program -mas_9-
uses crt-
Var a:array[1..1000] -of integer-
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]-
For i:=1 to n do
If min>- a[i] then min:=a[i]-
Writeln-
Writeln(‘Наименьший эл. =’,min)-
Readln-
End.
Категория: Массивы |
Дата: 23.12.12