Написать программу(Delphi или Pascal) для вычисления минимального произведения отрицательных подряд идущих элементов одномерного массива.
80
ОТВЕТЫ
Const n=10 ;var A: array [1..n] of integer;p, min, i, : integer;beginrandomize;for i:= 1 to n dobeginA[i]:= -100 + random (200);write (A[i]: 5);end;writeln;min:=100000000;p:=1;for i:=1 to n doif A[i] lt; 0 then p:=p*A[i] else Begin if plt; min then min:=p; p:=1; End; if plt;min then min:=p; writeln (min p= , min );end.
3
Отв. дан
Maron
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Алгебра
Auri
Две коробки карандашей стоят 52 руб. Сколько стоят 7 ...
2018-09-23 00:00:00
Grariel
2018-09-23 00:00:00
Agamadred
После того как мяч отбили ногой вверх, он движется ...
2018-09-23 00:00:00
Grariel