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

Question

Информатика

Асаф

29 сентября, 21:06

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

+2

Ответы (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.