Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.