Поглит

23.11.2021 19:45

Информатика

Есть ответ 👍

ОБЯЗАТЕЛЬНО ЧЕРЕЗ ПАСКАЛЬ Дан массив целых чисел (n = 20), заполненный случайным образом числами из промежутка [-45, 95].
Удалить из него все элементы, кратные 7 и принадлежащие промежутку [a, b] (a и b вводить с клавиатуры).
Вставить число k между всеми соседними элементами, которые образуют пару элементов с одинаковыми знаками (k вводить с клавиатуры).

277

283

Посмотреть ответы 2

Ответы на вопрос:

marynochka10092

Информатика

4,5(32 оценок)

Pascal

var

ar: array of integer;

i, j, a, b, k, n :integer;

begin

(* Дан массив целых чисел (n = 20), *)

(* заполненный случайным образом числами из промежутка [-45, 95].*)

randomize;

n:=20;

setlength(ar, n);

for i := 0 to n-1 do begin

ar[i]:= random(140)-45;

write(ar[i],' ');

end;

writeln;

(* Удалить из него все элементы, кратные 7 и *)

(* принадлежащие промежутку [a, b] (a и b вводить с клавиатуры)*)

writeln('введите диапазон [a,b]');

readln(a,b);

i:=0;

while i <= n-1 do

if (ar[i] mod 7 = 0) and (ar[i]>=a) and (ar[i]<=b)then begin

for j := i+1 to n - 1 do

ar[j-1] := ar[j];

n := n - 1

end

else

inc(i);

setlength(ar, n);

for i := 0 to n-1 do begin

write(ar[i],' ');

end;

writeln;

(* Вставить число k между всеми соседними элементами, которые образуют пару *)

(* элементов с одинаковыми знаками k вводить с клавиатуры).*)

writeln('введите k');

readln(k);

i := n - 1;

while i > 0 do begin

if ar[i]*ar[i-1]>0 then begin

inc(n);

SetLength(ar, n);

for j := n - 1 downto i do

ar[j] := ar[j-1];

ar[i] := k;

end;

dec(i);

end;

for i := 0 to n-1 do

write(ar[i],' ');

end.

svetiksolntce

Информатика

4,6(42 оценок)

Объясние

разделим 2005 монет получаем 1002 и 1002 и их взвешиваем

если они одинаковые то они настоящие и осталось сравнить 1 монету с какой то другой из другой кучи выяснить тяжелее она или легче.если одна из куч тяжелее то ее делим пополам и снова взвешиваем

если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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