Помощь - Поиск - Пользователи - Календарь
Полная версия: Массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
Svetlana
СПАСИБО!
хотя я даже и не знаю, кто такие ламеры...
Alesha_GA
heart.gif
Svetlana
И все же, кто это - ламер? ???
Alex
Ламер - человек или ни фига не сображающий в компах или мало чего сображающий в компах, но думающий, что он даже ОЧЕНЬ хорошо разбирается в них.
Под словом комп подрузомевается не обязательно железки, а в том числе операционные системы, программы и все такое прочее!
Svetlana
Ааа! Спасибо за объяснение! Тогда я, действительно, ламер!! но только с небольшим уточнением: я никогда и не думала, и не говорила, что разбираюсь в компах этих ваших :D
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.