Информатика, опубликовано 2018-08-22 22:33:05 by Гость

Дано 100 чисел. Проверить правда ли, что произведение отрицательных чисел не превосходят 100 по модулю. Решить в паскале, помогите пожалуйста)

Ответ оставил Гость

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] end;
writeln(b end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.