Abc pascal. дан одномерный массив в(n). добавить в - вопрос №9762818 от рузмохинур 07.06.2023 12:23

Question

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

рузмохинур · 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....