Найти сумму элементов массива b (5)

Question

Информатика

Каля

16 июня, 23:24

Найти сумму элементов массива b (5)

+1

Ответы (1)

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

Натан · Answer 1

Const

N = 5;

Var

B:array[1 ... N] of integer;

i:integer;

S:real;

Begin

Randomize;

S:=0;

Write ('B (', N,') : ') ;

For i : = 1 to N do

Begin

B[i]:=random (21) - 10;

Write (' ', B[i]) ;

S:=S+B[i];

End;

WriteLn;

WriteLn ('S = ', S) ;

End.