Вычислить сумму положительных и отрицательных элементов массива k(12), заполненного с клавиатуры

Question

Информатика: Вычислить сумму положительных и отрицательных элементов массива k(12), заполненного с клавиатуры

RomqaShut · Answer

var s,i: integer; k:array [1..100] of integer; begin  for i := 1 to 12 do begin readln(k[i]); s :=s + k[i]; end; writeln( ответ: + s); end....