Дан линейный массив найти сумму линейного массива

Question

Информатика

Марьяха

20 апреля, 19:04

Дан линейный массив найти сумму линейного массива

+1

Ответы (1)

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

Фленка · Answer 1

Program Task;

Const N = 5;

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

i, sum: Integer;

Begin

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

For i : = 1 To N Do

Begin

Read (a[i]) ;

sum : = sum + a[i];

End;

WriteLn ('Сумма элементов массива: ', sum) ;

ReadLn;

End.