Дан массив. Увеличить каждый элемент исходного массива на 5

Задание:

Дан массив. Увеличить каждый элемент исходного массива на 5.

Решение:

Program Task; Const N=5; Var a: Array [1… N] of Integer; i: Integer; BeginWriteLn ('Введите ', N, ' чисел через пробел'); For i: =1 To N DoRead (a[i]); For i: =1 To N Doa[i]: =a[i]+5; WriteLn ('Результат: '); For i: =1 To N DoWrite (a[i], '); ReadLn; End.

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

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