Дан массив из N целых чисел. Найти сумму всех отрицательных - вопрос №11826324 от OlyaKasyanenko28 02.04.2020 08:04

Question

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

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