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

[Svetlana]

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

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

[Alesha_GA]

;D ;D ;D ;D
Lamers Death!

[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

[Svetlana]

СПАСИБО!
хотя я даже и не знаю, кто такие ламеры...

[Alesha_GA]

[Svetlana]

И все же, кто это - ламер? ???

[Alex]

Ламер - человек или ни фига не сображающий в компах или мало чего сображающий в компах, но думающий, что он даже ОЧЕНЬ хорошо разбирается в них.
Под словом комп подрузомевается не обязательно железки, а в том числе операционные системы, программы и все такое прочее!

[Svetlana]

Ааа! Спасибо за объяснение! Тогда я, действительно, ламер!! но только с небольшим уточнением: я никогда и не думала, и не говорила, что разбираюсь в компах этих ваших :D