Abc pascal. дан одномерный массив в(n). добавить в конец массива элемент, равный сумме отрицательных элементов, стоящих на четных местах.

Question

Информатика: Abc pascal. дан одномерный массив в(n). добавить в конец массива элемент, равный сумме отрицательных элементов, стоящих на четных местах.

taniamishanina · Answer

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....

Abc pascal. дан одномерный массив в(n). добавить в конец массива элемент, равный сумме отрицательных элементов, стоящих на четных местах.

Популярные вопросы