for i := 0 to 10 do
А[i]:=i;
for i := 0 to 4 do
begin
К := A[t];
A[i] := A[10 * i] * K;
A[10 * i] := K;
end;
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.