uses crt; const N = 25; var A: array[1..N] of integer; M, i: integer; begin write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà '); read(M); for i := 1 to M do begin write('A[', i, ']='); read(a[i]); end; for i := 1 to M do begin A[i] := A[i] * 2; write(a[i]:4); end; writeln; readln; end.