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

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

Задать свой вопрос
2 ответа

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


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

begin

write('a = ');

readln(a);

min:=a; max:=a;

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

for i:=2 to 15 do

begin

write('a = ');

readln(a);

if alt;min then min:=a;

if agt;max then max:=a;

if alt;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

Эльвира Стрижекурова
спасибо.
Ромка Фекляев
пожалуйста
Aleksandr Teterko
спасибо.
Руслан
пожалуйста
Женя Натфулин
спасибо.
Денис Гурьнг
пожалуйста
//PascalABC.NET 3.4

procedure abcd(k:integer; var smax,smin,sum:integer;
  var prod:BigInteger);
begin
  if kgt;smax then smax:=k;
  if klt;smin then smin:=k;
  if klt;0 then sum+=k;
  prod*=k
end;

begin
  var (smin,smax,sum):=(MaxInt,-MaxInt,0);
  var prod:BigInteger:=1;
  ReadSeqInteger('Введите 15 чисел-gt;',15)
    .ForEach(p-gt;abcd(p,smax,smin,sum,prod));
  Writeln('Min=',smin,', max=',smax,', сумма отрицательных=',sum);
  Writeln('Творение=',prod)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт