Var a:array[1..5] of integer; i:integer; Begin for i:= 1 to 5 do Begin write('Введите ',i,'-ый элемент массива '); Readln(a[i]); End; Write('Исходный массив: '); for i:= 1 to 5 do write(a[i],' '); writeln; write('Полученный массив: '); for i:= 1 to 5 do write(a[i]*2,' '); End.