в последовательности из 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.
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.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов