помогите неделю хворал

Помогите неделю хворал

Задать свой вопрос
1 ответ

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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт