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

Question

Информатика

Харитоний

15 мая, 14:07

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

+3

Ответы (1)

Знаете ответ на вопрос?

Зосим · Answer 1

Program Task;

Const N = 5;

Var a: Array [1 ... N] of Integer;

i: Integer;

Begin

WriteLn ('Введите ', N, ' чисел через пробел') ;

For i : = 1 To N Do

Read (a[i]) ;

For i : = 1 To N Do

a[i] : = a[i] + 5;

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

For i : = 1 To N Do

Write (a[i], ' ') ;

ReadLn;

End.