Предмет: Информатика, автор: CailaYork

помогите неделю болел​

Приложения:

Ответы

Автор ответа: Аноним
0

Program arrSum;

var a:array of integer;

i,k:integer;

begin

setLength(a,30);

for i:=0 to High(a) do

begin

a[i]:= random(-10,10);

end;

for i:=0 to 6 do

k:= k + a[i];

writeln(k);

end.

Похожие вопросы
Предмет: Химия, автор: dasenkamilaa5
Предмет: Геометрия, автор: velkorwelet
Предмет: История, автор: Danil20050907
Предмет: Музыка, автор: катшкаму231