Регистрация
Lirik1328
03.03.2021 10:41
Информатика
Есть ответ 👍

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

242
406
Посмотреть ответы 3

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

szhanibekov
szhanibekov
4,6(64 оценок)

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

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< min then min: =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

Евабе
Евабе
4,4(32 оценок)
//pascalabc.net 3.4 procedure abcd(k: integer; var smax,smin,sum: integer;   var prod: biginteger); begin   if k> smax then smax: =k;   if k< smin then smin: =k;   if k< 0 then sum+=k;   prod*=k end; begin   var (smin,smax,sum): =(maxint,-maxint,0);   var prod: biginteger: =1;   readseqinteger('введите 15 чисел-> ',15)       .foreach(p-> abcd(p,smax,smin,sum,prod));   writeln('min=',smin,', max=',smax,', сумма отрицательных=',sum);   writeln('произведение=',prod) end.
dubonosova37
dubonosova37
4,7(7 оценок)
Даже не помню. вроде редактор текста потом /html/text/pap45/vovr/           алгоритм схемы сочетания текста по языку html который хорошо работает на операционной системе linux. блок схему к сожалению не помню!

Популярно: Информатика