дано 100 чисел. Проверить правда ли, что произведение отрицательных чисел не пре...

July 2022 1 9 Report

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

Answers & Comments

HRAshton 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.

0 votes Thanks 1

Answers & Comments

rebyatushki pomogite ochen ochen nadopostavte tolko zapyatye

rebyat pomogite pozhalujstanapisatsochinenie rassuzhdenie pomnite s dob

rebyatki pomogite1opredelite vid predlozheniya nuzhno bylo vypolnit zadanie v

45n 2umolyayu pomogite pozhalujsta

45n 2pomogite pozhalujsta

rebyat pomogiteprsnuvshis na drugoj den ya uvidel ves kabinet osveshennyj yarki

kazhdyj iz dvuh rabochih odinakovoj kvalifikacii mozhet vypolnitzakaz za15chasov

v treugolnike avs mediana vm prodolzhaetsya za tochku m tak chto vmmd

napisat sochinenie miniatyuru na temuzachem nuzhno izuchat orfoepiyupomogite pozh

bokovye storony ravnobedrennogo treugolnika ravny 5 osnovanie ravno 6

рекомендуемые вопросы

Helpful Links

Helpful Social