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

[Spiker01]

Вот сама задачка: В одномерном масиве 10 любых целых чисел d(n).Положительные числа массива уменьшить в трое , а отрицательные заменить на индексы n. Заранее благодарен.

[Spiker01]

Program HELPme;
var
a,d:array[1..10] of real;
s:real;
i:integer;
begin
for i:=1 to 10 do begin
writeln ('Vvedite massiv # ' ,i);
readln(d[i]);
end;
if ...................

дальше незнаю что писать ?

[Stilet]

Написши так:

for i:=1 to 10 do begin 
 writeln ('Vvedite massiv # ' ,i);
 readln(d[i]);
 if d[i]>0 then d[i]:=d[i] div 3 else
  if d[i]<0 then d[i]:=i;
 
end;

[D-mon]

Лови бездельник...

Program HELPme;
var
     а:array[1..10] of real;
     i:integer;
begin
 for i:=1 to 10 do begin
  begin 
   write('Vvedite element # ' ,i);
   readln(а[i]);
  end;
 for i:=1 to 10 do begin
  begin 
   if(а[i]>0)then
    begin
     а[i]:=а[i]-(а[i]*3);
    end
   else
    begin
     а[i]:=i; 
    end;
  end;
 Write('Polychennuu massiv: ');
 for i:=1 to 10 do begin Write(a[i]+' ');
end;

[Spiker01]

Уже пробывал , пишет Error 41 . Интересует как именно можно уменьшить число в трое? Я написал :

if d[i]>0 then d[i]:=d[i]/3 else d[i]:=i;
writeln('Otvet raven',d[i]);
end;
readln;
end.

Правильно работает?

[Spiker01]

Скобки надо :

........................then (d[i])/3 и тд.

Проверял по тетради, ответы сходятся .ВСЁ правильно.Спасибо всем .

Program HELPme;
d:array[1..10] of real
i:integer;
s:real;
for i:=1 to 10 do begin
writeln('Vvedite massiv # ',i);readln(d[i]);
if d[i]>0 then d[i]:=(d[i])/3 else d[i]:=i ;
writeln('Otvet',d[i]);
end;
readln;
end.

[Stilet]

а[i]:=а[i]-(а[i]*3);

Это его втрое уменьшит?

Правильно работает?

А проверить?

[D-mon]

а[i]:=а[i]-(а[i]*3);
Это его втрое уменьшит?

А во сколько??? Или я торможу или....

[Isthmus]

Пример: число 100.

100-(100*3)=-200

А правильный ответ 33.

[Spiker01]

Вот задали задачку, помогите решить.Дан линейный массив с 15 числами .Программа должна выводить на экран индекс массива i наименьшего числа и само число.