4 года назад

Найдите сумму 49 чисел, если среди них нет 0, то и произведение

1 ответ:

viper19974 года назад

0 0

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(49,-50,50); a.Println;
Writeln('Сумма равна ',a.Sum);
if not a.Any(t->t=0) then Writeln('Произведение равно ',
a.Aggregate(BigInteger(1),(p,q)->p*q))
end.

Пример
-26 -4 -2 -12 -38 -3 3 -12 -22 -30 -41 -38 34 20 34 -7 -10 -34 16 -1 -20 -17 49 -48 50 -37 -30 25 -42 -24 16 7 -27 2 8 44 -31 42 39 -29 -4 21 19 41 -34 -9 -4 48 47
Сумма равна -71
Произведение равно -5875206582842929080605341032818854321985176247205888000000000

Читайте также

Опишите основные этапы создание цифровых видеофильма

Качок

1 Том Сойер второе 2 открытый паровоз 3 Вторая мировая война 3 шарлыкском и ищет Улики 4 и Снежная королева и пятое Мария вместе с водителем Сапсана Ваней

0 0

3 года назад

Від чого залежить тип файлу

Дмитрий ольскийв

Від програми в якому він створюється, редагується, зберігається.

0 0

3 года назад

Решить задачу в Паскале:В числовом массиве из 10 элементов, заданных случайным образом от -100 до 100: а) удалить первый положит

Мария Шурыгина

1)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
q:=0;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]>0)then begin
q:=q+1;
if(q=1)then a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]<>400)then write(a[i],' ');
end;
end.
2)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]<0)then begin
a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]<>400)then write(a[i],' ');
end;
end.

0 0

4 года назад

1. Переведіть подані числа: - у двійкову систему 127 (10) ;в скобочке это номер внизу - у десяткову систему 1011100(2); - у вісі

C-Kati

Первый 1111111
второй 92
третий 10766
четвертый 1470

0 0

4 года назад

Человек читает объявление в газете - источник___________приемник____________ турист греет руки у костра - источник______________

Волчок913 [7]

Газета человек костёр турист Петя друг

0 0

4 года назад