Помогите, пожалуйста, написать маленькую программку неопытному начинающему...
Заранее ОГРОМНОЕ спасибо всем откликнувшимся!
Задача: поределить номер минимального элемента заданного одномерного массива
Полная версия: Массивы
;D ;D ;D ;D
Lamers Death!
Lamers Death!
Ладно уж, ламеры тоже люди :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.
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.
СПАСИБО!
хотя я даже и не знаю, кто такие ламеры...
хотя я даже и не знаю, кто такие ламеры...
И все же, кто это - ламер? ???
Ламер - человек или ни фига не сображающий в компах или мало чего сображающий в компах, но думающий, что он даже ОЧЕНЬ хорошо разбирается в них.
Под словом комп подрузомевается не обязательно железки, а в том числе операционные системы, программы и все такое прочее!
Под словом комп подрузомевается не обязательно железки, а в том числе операционные системы, программы и все такое прочее!
Ааа! Спасибо за объяснение! Тогда я, действительно, ламер!! но только с небольшим уточнением: я никогда и не думала, и не говорила, что разбираюсь в компах этих ваших :D
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.