Вычислить сумму положительных и отрицательных элементов - вопрос №18519112 от alinzik3 17.05.2020 02:12

Question

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

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