С клавиатуры вводится 8 целых чисел. Найти сумму только отрицательных чисел. Бло...

July 2022 1 27 Report

С клавиатуры вводится 8 целых чисел. Найти сумму только отрицательных чисел. Блок-схема, программа

HEuronYA Var i,s,d:integer;
begin
for i:=1 to 8 do
begin
readln (d);
if d<0 then s:=s+d;
end;
writeln (s);
end.

0 votes Thanks 1