В последовательности из 15 целых чисел определить произведение (P) max и min, сумму (S) отрицательных чисел данной последовательности

Question

Информатика

Рамаль

2 ноября, 04:07

В последовательности из 15 целых чисел определить произведение (P) max и min, сумму (S) отрицательных чисел данной последовательности

+2

Ответы (1)

Знаете ответ на вопрос?

Варма · Answer 1

Программа на паскале:

var a, min, max, p, s, i:integer;

begin

write ('a = ') ;

readln (a) ;

min:=a; max:=a;

if a<0 then s:=a else s:=0;

for i:=2 to 15 do

begin

write ('a = ') ;

readln (a) ;

if a
if a>max then max:=a;

if a<0 then s:=s+a;

end;

writeln ('min = ', min,' max = ', max,' p = ', min*max) ;

writeln ('s = ', s) ;

end.

Пример (для 5 чисел) :

a = 5

a = - 4

a = 2

a = 7

a = - 1

min = - 4 max = 7 p = - 28

s = - 5