Массив А(20) заполнить случайными целыми числами в диапазоне от -30 до 30. Найти количество N попарных произведений А(I)*А(I+1)<0. Вывести А, все попарные произведения А(I)*А(I+1), N.
//Pascal ABC.NET Версия 2.2 Сборка 790 var ar:array[1..20] of integer; N,i:integer; begin; randomize; writeln('Array:'); for i:=1 to 20 do begin; ar[i]:=random(-30,30); //или Random(61)-30 в иных реализациях write(ar[i]:4); end; writeln; writeln('Combinations:'); for i:=1 to 19 do begin; write(ar[i]*ar[i+1]:6); if ar[i]*ar[i+1]<0 then inc(N); end; writeln; write('Result N:',N); end.
Answers & Comments
Verified answer
//Pascal ABC.NET Версия 2.2 Сборка 790var ar:array[1..20] of integer;
N,i:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 20 do
begin;
ar[i]:=random(-30,30); //или Random(61)-30 в иных реализациях
write(ar[i]:4);
end;
writeln;
writeln('Combinations:');
for i:=1 to 19 do
begin;
write(ar[i]*ar[i+1]:6);
if ar[i]*ar[i+1]<0 then inc(N);
end;
writeln;
write('Result N:',N);
end.
Пример вывода:
Array: -15 -2 6 25 -10 -1 -14 5 -8 11 26 -24 17 23 -17 -1 -13 19 -21 -26
Combinations: 30 -12 150 -250 10 14 -70 -40 -88 286 -624 -408 391 -391 17 13 -247 -399 546
Result N: 10