Помогите решить задачу...

[Makarov]

program f1;
uses crt;
var
  ar:array[1..15] of word;
  i,nom,min:word;
begin
  clrscr;
  randomize;
  for i:=1 to 15 do
  begin
    ar[i]:=random(20);
    write(ar[i],' ');
  end;
  min:=ar[i];
  for i:=2 to 15 do
  begin
   if (min>ar[i]) then
    begin
     min:=ar[i];
     nom:=i;
    end;
  end;
  writeln;
  writeln('Index ',nom,' Chislo ',min);
  readln;
end.

[Spiker01]

Нифига не работает . Мне надо чтоб пользователь сам вводил массивы от 1 до 15 , в конце должен выходить "Минимальное число d Индекс i" , например "Число 10 Индекс 3 " . При этом индекс это номер массива . Я пробывал так :

program MiniMassiv;
uses crt;
var
d:array[1..15] of word;
i:integer;
nom,min:real;
begin
clrscr; randomize;
for i:=1 to 15 do begin
begin
writeln('‚Введите массив №',i);
readln(d[i]);;
end;
min:=d[i];
begin
if min>(d[i]) then begin
min:=d[i];
nom:=i;
end;end;
writeln;writeln('?*¤ҐЄб',nom, '—Ёб«®',min);
readln;
end;
end.

Не работает . Помогите .(

[Makarov]

program f1;
uses crt;
var
  ar:array[1..15] of word;
  i,nom,min:word;
begin
  clrscr;
  randomize;
  for i:=1 to 15 do
  begin
    writeln('vvedite chislo ',i);
    readln(ar[i]);
  end;
  min:=ar[1];
  for i:=2 to 15 do
  begin
   if (min>ar[i]) then
    begin
     min:=ar[i];
     nom:=i;
    end;
  end;
  writeln;
  writeln('Index ',nom,' Chislo ',min);
  readln;
end.

[Spiker01]

Спасибо большое ,всё правильно работает . Обьясните пожалуйста что означает :

randomize;

и зачем ето писать?

[Olympian]

randomize - меняет текущее числ X0 на другое.
Ведь в паскале стандартный рандом такой -
Xn+1 = (X0 * a + b) / c
Не замечал, что если без randomize - то у тебя каждый запуск проги одни и теже числа он генерирует...
Ну вот - для разнообразия, грубо говоря)

[Spiker01]

На кнопку репутации нажал.Задали новую задачку :

Напишите программу ,которая сначало вводит десять положительных чисел в одномерный массив , потом складывает отдельно все положительные элементы массива , отдельно все отрицательные элементы, и выдаёт результат

Помойму там очепятка , вводишь десять положительных чисел , зачем тогда заставлять программу складывать отрицательные числа ?

[Plague]

s1:=0; // сумма положительных эл. мас.
s2:=0; // сумма отрицательных эл. мас.
for i:=1 to n do
if a[i]>0 then inc(s1,a[i]) else inc(s2,a[i]);
writeln(s1);
writeln(s2);

[Spiker01]

Спасибо за идею , я зделал так

Program SummaElement;
var
d:array[1..10] of real;
i:integer;
so:real;
sp:real;
begin
so:=0;
sp:=0;
for i:=1 to 10 do begin
writeln('Vvedite massiv # ',i);
readln(d[i]);
if (d[i]>0) then sp:=sp+d[i] else so:=so+d[i];end;
writeln;
writeln('Symma polozhitelnih elementov',sp);
writeln('Symma otricatelnih elementov',so);
readln;
end.

Всё работает . Пробывал заменеить

then inc(s1,a[i]) else inc(s2,a[i]);

почемуто выдаёт ошибку . Спрашивал у преподавателя насчёт опечатки, сказали что напечатали условие задачи неправильно.

[Spiker01]

Задача :
Дан массив из 10 чисел. Если все элементы массива положительные ,вывести сообщение : "все положительные" , если все элементы массива отрицательные вывести сообщение : " все отрицательные".

[puporev]

then inc(s1,a[i]) else inc(s2,a[i]);

inc(a,b) работает только для целых чисел, а у тебя real.

По задаче:

ko:=0;kp:=0;
for i:=1 to 10 do
  begin
    if a[i]<0 then ko:=ko+1
   else if a[i]>0 then kp:=kp+1;
  end;
if ko=10 then writeln('Все отрицательные!')
else if kp=10 then writeln('Все положительные!')
else then writeln('И те и другие!');