Безотлагательно!!!!!!!!!!!!!!!ABC pascal!!!!!!!!!!!!!Дан одномерный массив В(N). Добавить в конец

Безотлагательно!!!!!!!!!!!!!!!ABC pascal!!!!!!!!!!!!!Дан одномерный массив В(N). Добавить в конец массива элемент, одинаковый сумме отрицательных частей, стоящих на четных местах.

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

var

n,i: integer;

b: array[1..101] of integer;

begin

readln(n);

for i:=1 to n do

begin

 read(b[i]);

 if ((i mod 2 = 0) and (b[i]lt;0)) then

 inc(b[101], b[i]);

end;

write(b[101]);

end.

Мирослава Косовец
Не работает
Дмитрий Чвирчук
Все работает..Ввел 10дальше ввел0 5 6 -8 4 6 -50 -10 4 10Ответ -18
Vitalja Panzhinskij
Мне необходимо чтоб автоматически все выводил
Arsenij
Слушай, ты в задании произнес что необходимо в конец массива добавить элемент который будет суммой элементов которые стоят на четных местах + они отрицательные так? такЯ для тебя даже вывел этот элемент, а для тебя оказывается нужно вывести все элементы..Понимаешь я даже мог не выводить этот элемент т.к ты в условии не написал этого сделать, я для тебя не экстрасенс
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт