В числовой последовательности из N произвольных целых чисел определить количеств...

July 2022 1 16 Report

В числовой последовательности из N произвольных целых чисел определить количество пар соседних элементов одинаковых по модулю, но разных по знаку.

Answers & Comments

yasadc Uses crt;
const n=10;
var a:array [1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
writeln;
for i:=1 to n-1 do
begin
if abs(a[i])=abs(a[i+1])
then
begin
if ((a[i]>0) and (a[i+1]<0)) or ((a[i]<0) and (a[i+1]>0))
then
inc(k);
end;
end;
writeln(k);
end.

1 votes Thanks 1

Answers & Comments

v matriceobnulit elementy celaya chast kotoryh yavlyaetsya chetnym chislompomogite

opredelit skolko raz posledovatelnost iz n proizvolnyh chisel menyaet znak s

opredelit summu naibolshego i vtorogo po znacheniyu naimenshego elementov paskal

kak v paskale eto sdelat

opredelit dva naibolshih chisla v posledovatelnosti i najti ih chastnoene cherez

dany tekstovyj fajl i nekotoroe slovo napechatajte te stroki fajla kotorye sode

pomogite pozhalujsta eto paskal napishite programmu

pomogite pozhalujsta eto paskal

proizvedenie srednih arifmeticheskih massivov a i vpaskal pomogite

v chislovoj posledovatelnosti iz n proizvolnyh celyh chisel opredelit kolichestv

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

Helpful Links

Helpful Social