Дан массив p сформировать новый массив m по правилу m[i]=p[i]*[i] Составьте правильно п?
Дан массив 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.
Не нашли ответ?
Похожие вопросы