Срочно!!!!!!!!Дан одномерный массив В(N). Добавить в конец массива элемент, равный сумме

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

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

var B:array [1..1000] of real;

c:integer;d:real;

begin

writeln('Vvedite N=');read(a);

d:=0;

for c:=1 to n do

if(c mod 2= 0) then d:=d+b[c];

b[n]:=d;writeln(b[n]);readln;readln;

end;

Ева Брудина
Не работает
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт