Сформулировать целочисленый массив b из 5 элементов каждый элемент массива случайное число от 30 до 70 найти сумму массива

Question

Информатика

Неонила

17 декабря, 16:47

Сформулировать целочисленый массив b из 5 элементов каждый элемент массива случайное число от 30 до 70 найти сумму массива

+1

Ответы (1)

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

Николич · Answer 1

Const n=5;

var b: array [1 ... n] of integer;

sum, i:integer;

begin

Randomize;

writeln ('---b:---') ;

for i:=1 to n do begin

b[i]:=Random (41) + 30;

write (b[i]:6) ;

end;

writeln;

sum:=0;

for i:=1 to n do sum:=sum+b[i];

writeln ('sum=', sum) ;

end.