Есть ответ 👍

Существует ли строгая форма за на удаление аккаунта здесь?
Или писать на указанный в настройках адрес что-то вроде: "удалите меня" х)?

248
379
Посмотреть ответы 1

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


Var       a: array[1..100] of integer;       i, n: integer;       sum, product, harmonic: real; begin       n : = 50;             writeln('данные массива: ');       for i : = 1 to n do       begin               a[i] : = random(60);               write(a[i], ' ');       end;       writeln();             {подсчет суммы и произведения и агригатов}       sum : = 0;       product : = 1;       for i : = 1 to n do               if i mod 2 = 0 then                       sum : = sum + a[i]               else                       product : = product * a[i];       writeln('sum = ', sum);       writeln('product = ', product); end.

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