Срочно!!!!!!!!!!!!!!!ABC pascal!!!!!!!!!!!!!Дан одномерный массив В(N). Добавить в конец массива элемент, равный сумме отрицательных элементов, стоящих на четных местах.
Ответы
Ответ дал:
0
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]<0)) then
inc(b[101], b[i]);
end;
write(b[101]);
end.
Ответ дал:
0
Не работает
Ответ дал:
0
Все работает..
Ввел 10
дальше ввел
0 5 6 -8 4 6 -50 -10 4 10
Ответ -18
Ввел 10
дальше ввел
0 5 6 -8 4 6 -50 -10 4 10
Ответ -18
Ответ дал:
0
Мне нужно чтобы автоматически все выводил
Ответ дал:
0
Слушай, ты в задании сказал что нужно в конец массива добавить элемент который будет суммой элементов которые стоят на четных местах + они отрицательные так? так
Я тебе даже вывел этот элемент, а тебе оказывается нужно вывести все элементы..
Понимаешь я даже мог не выводить этот элемент т.к ты в условии не написал этого сделать, я тебе не экстрасенс
Я тебе даже вывел этот элемент, а тебе оказывается нужно вывести все элементы..
Понимаешь я даже мог не выводить этот элемент т.к ты в условии не написал этого сделать, я тебе не экстрасенс
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад