Регистрация
H2Oя
11.05.2020 03:11
Информатика
Есть ответ 👍

Дан массив подсчитать сумму отрицательных элементов?

182
380
Посмотреть ответы 2

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

Sivcova942
Sivcova942
4,6(10 оценок)
Const       handsfree = true; var       a: array[1..100] of real;       i, n: integer;       sum: real; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();             {подсчет суммы и произведения и агригатов}       sum : = 0;       for i : = 1 to n do               if a[i] < 0 then {если нужен фильтр}                       sum : = sum + a[i];       writeln('sum = ', sum); end.
Vasilek2006
Vasilek2006
4,7(25 оценок)

Дважды подряд записать трехзначное число — это значит умножить его на  1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа.  

Последовательно разделить на 13, 11 и 7 –  значит разделить число на произведение 13 * 11* 7,  которое равно 1001.

Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число:

(n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.

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