Rambler's Top100

Скачать программы    Все программы автора

Задание № 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.

Вверх

Белорусский рейтинг MyMinsk.com Сайты беларуси Регистр "ЗУБР" Каталог на TIGA.BY, а также  новости, работа, объявления, фото и многое другое Rambler's Top100 Белорусский каталог программ Faststart - рейтинг сайтов, каталог интернет ресурсов, счетчик посещаемос­ти Яндекс.Метрика
Hosted by uCoz