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

Question

Информатика

Афанасий

28 марта, 04:55

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

+2

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