Ввести c клавиатуры массив из 5 элементов, умножить их на 2 и вывести на экран. Пример: Введите пять чисел: 4 15 3 10 14 Результат: 8 30 6 20 28

program zz1;

var i:integer; / / задаем переменные целого типа

m:array [1 ... 5] of integer; / / описываем массив на пять целых чисел

begin

write (' Введите пять чисел: ');

for i:=1 to 5 do / / получаем 5 чисел и записываем их в массив

read (m[i]);

for i:=1 to 5 do / / организуем цикл, в котором переберем все числа в массиве

m[i]:=2 * m[i]; / / увеличиваем числа в два раза

write (' Результат: ');

for i:=1 to 5 do / / выводим полученный массив на экран

write (m[i], ' ');

end.