Опубликовано 6 лет назад по предмету Информатика от socioblyad

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

Ответ

Ответ дан petyaGavrikov

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

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
1. Ответ
  
  Ответ дан socioblyad
  
  спасибо.
2. Ответ
  
  Ответ дан petyaGavrikov
  
  пожалуйста
Ответ

Ответ дан DonPedro80

//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.

Самые новые вопросы

Математика - 6 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 6 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 6 лет назад

Почему япония - лидер по выплавке стали?

Математика - 6 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 6 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.