Регистрация
xeniapopsoip00ty7
21.04.2022 04:23
Информатика
Есть ответ 👍

Описать строение магистрали

192
206
Посмотреть ответы 1

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

Налим12
Налим12
4,6(64 оценок)
Var   a: array [1..100] of integer;   i: integer;   b: int64 : = 1; begin    for i : = 1 to 100 do   begin     a[i] : = random(-2, 20);     write(a[i], ' ');   end;   writeln();   for i : = 1 to 100 do   begin     b *= (a[i] < 0 ? abs(a[i]) : 1);   end;   writeln(b < = 100, '(', b, ')'); end.

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