Предмет: Информатика,
автор: 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.
Похожие вопросы