ТутРешу.Ру

Составьте программу заполнения массива а[1…

Задание:

Составьте программу заполнения массива а[1… 10] нечетными числами: индексы элемента 1 2 3 4 5 6 7 8 9 10 значение элемента 1 3 5 7 9 11 13 15 17 19

Решение:

Program mas; var a: array[1… 10] of integer; i,p: integer; beginp: =1; for i: =1 to 10 dobegina[i]: =p; p: =p+2; end; end.




Знаете другой ответ?

Отправить свой ответ