Вычислить сумму положительных и отрицательных - вопрос №12184514 от Синтол 08.10.2020 16:05

Question

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

Синтол · 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....