Дан массив из N целых чисел. Найти сумму всех - вопрос №11825822 от 12853 18.09.2020 12:34

Question

Информатика: Дан массив из N целых чисел. Найти сумму всех отрицательных чисел. Создать программу на Паскаль

12853 · Answer

var a: array [1..n] of integer;i,s:integer;begins:=0;for i:=1 to n do begin if a[i] 0 then s:=s+a[i]; end;end....