Дан массив p сформировать новый массив m по правилу m[i]=p[i]*[i] Составьте правильно...

Question

Дан массив p сформировать новый массив m по правилу m[i]=p[i]*[i]
Составьте правильно пожалуйста

Answer 1

Var
 n,m,k,i,l:longint;
 m,p:array[1..10000]of longint;
begin
 readln(n);
for i:=1 to n do
begin 
readln(m[i]);
p[i]:=i*m[i];
end;
for i:=1 to n do write(p[i],' ');
readln;
end.

Answer 2

Странно записано правило, в условии. Именно оно, по каким-то причинам выдает ошибка при компиляции. Однако, не исключаю возможности, что я где-то допустил ошибку сам, а правило в условии все же задано верно. 

Я поменял правило, поэтому компиляция прошла успешна. А вообще, я даже задание смутно понял:D

---

Comments

Данные вводятся с клавиатуры

---

Интересно, но откуда такая информация? И вообще, это + несколько лишних строк. Я же просто сделал массив с помощью random. И да, в Вашей программе ошибка, в разделе описания переменных.

---

Спасибо, здесь все правильно)

---

Ну и где ошибка? Нету её !

---

У Вас переменные повторяются. В массиве и longint.

---

чуть ошибся. так то код намного проще вашего и легче понимаем