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

Question

Информатика

Эва

14 марта, 21:16

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

+2

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