Составить программу, которая вычисляет сумму отрицательных чисел среди 5 чисел, которые вводятся с клавиатуры

Question

Составить программу, которая вычисляет сумму отрицательных чисел среди 5 чисел, которые вводятся с клавиатуры

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

VAR 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(;сумма пяти отрицательных чисел равна');