Ответы на вопрос:
Какой у тебя Среди следующих высказываний укажите составные; выделите в них простые, обозначив каждое из них буквой; запишите с логических операций каждое составное высказывание
const N = 7;
const MAX = 10;
var a,b,c: array [1..N] of integer;
var d: array [1..N] of boolean;
var i,j,k,flag: integer;
begin
// Автозаполнение
randomize();
for i:=1 to N do
begin
a[i]:=random(MAX+1);
b[i]:=random(MAX+1);
c[i]:=random(MAX+1);
d[i]:=false;
end;
// Вывод на экран
write('Массив a: ');
for i:=1 to N do write(a[i],' ');
write(сhr(10),'Массив b: ');
for i:=1 to N do write(b[i],' ');
write(сhr(10),'Массив c: ');
for i:=1 to N do write(c[i],' ');
// Поиск элементов, принадлежащих всем 3м массивам
write(сhr(10),'Элементы, принадлежащие всем трем массивам: ');
for i:=1 to N do
begin
flag:=0;
// Следующий цикл проверяет, есть ли элемент a[i]
// в массиве b.
for j:=1 to N do
begin
if (a[i]=b[j]) then
begin
flag:=flag+1;
break;
end;
end;
// Следующий цикл проверяет, есть ли элемент a[i]
// в массиве c.
for j:=1 to N do
begin
if (a[i]=c[j]) then
begin
flag:=flag+1;
break;
end;
end;
// Если элемент найдет во всех трех массивах, в массиве d
// указывается, что данный элемент уже найден
if (flag=2) then d[i]:=true;
// В следующем цикле проверяется, был ли уже в массиве a
// элемент a[i]. Если был, и если он есть во всех трех массивах
// (условие d[k]), то флаг обнуляется и элемент не выводится
if (i>0) and (flag=2) then
for k:=i-1 downto 1 do
if (a[k]=a[i]) and (d[k]) then flag:=0;
if (flag=2) then write(a[i],' ');
end;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
AbiloWa06.04.2023 22:16
-
никита334308.12.2020 21:43
-
dianapopova187912.09.2021 02:41
-
TRIPLEN16.02.2023 05:37
-
lida10525.10.2021 08:21
-
ilonappp1805.10.2021 13:32
-
Зафар123456789029.03.2022 17:42
-
mkolok3201.05.2021 16:48
-
Мария11111112121.03.2022 21:57
-
astakastaj23.03.2020 04:58
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.