Составить программу, которая вычисляет сумму отрицательных чисел среди 5 чисел,
которые вводятся с клавиатуры
которые вводятся с клавиатуры
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
N,sum:real;
Begin
Sum:=0;
for I:=1 to 5 do begin
Write ('введите I, число);
ReadLn(N);
if N<0 then S:=S+N;
end;
WriteLn(;сумма пяти отрицательных чисел равна');