Меню сайта

Задача №10
Дан массив из —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&gt- a[i] then min:=a[i]-
Writeln-
Writeln(‘­Наименьший эл. =’,min)-
Readln-
End.
Категория: Массивы | Дата: 23.12.12

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