Массивы Опции

[Svetlana]

Помогите, пожалуйста, написать маленькую программку неопытному начинающему...
Заранее ОГРОМНОЕ спасибо всем откликнувшимся!

Задача: поределить номер минимального элемента заданного одномерного массива

[Alesha_GA]

Ладно уж, ламеры тоже люди :D.

Код

uses crt;
const
l=10
var
mas:array[1..l] of integer;
min,n,i:integer;
begin
{ заполняем массив }
randomize;
for i:=1 to l do mas[i]:=random(100);

{ собственно сортировка }
min:=mas[1]; {начальный минимальный эл-т}
for i:=1 to l do
begin
if min<mas[i] then
 begin
 min:=mas[i];
 n:=i;
 end;
end;
{В n содержится номер минимального элемента}
end.

Сообщение отредактировано: volvo - 17.12.2004 13:15