Массив А(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.
Пример вывода:
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
