Abc pascal. дан одномерный массив в(n). добавить в - вопрос №9762993 от 444m 24.08.2020 18:04

Question

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

444m · 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....