Скачать программы Все программы автораЗадание № 24Дан одномерный массив, состоящий из 10- элементов целого типа (значения элементов вводятся с клавиатуры). Составить программу удвоения каждого элемента массива.
program mas; var i: integer; a: array[1..10] of integer; begin {Ввод данных} for i:=l to 10 do begin writeln('BBeflHTeaneMeHT массива'); readln(a[i]); end; {Вывод исходных данных на экран} writeln ('Элементы исходного массива'); for i:=l to 10 do write(a[i], ' '); writeln; {Обработка элементов массива} for i:=l to 10 do a[i]:=a[i]*2; {Вывод новых значений} writeln('Элементы преобразованного массива'); for i:=l to 10 do write(a[i], ' '); writeln; end. |