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.