Сравнение элементов 3 массивов из 10 чисел

@it-coder · Регистрация: 21.08.2020

Студворк — интернет-сервис помощи студентам

Здравствуйте Уважаемое сообщество,
Ни подскажете как сравнить элементы 3 масивов из 10 чисел на равенство, одного числа в 1 массиве, со 2 числом во 2 и 3 массииве,
Есть 3 массива из 10 натуральных чисел, эти числа вводятся пользователем с клавиатуры,
После их ввода их, эти числа 1,2, и 3 массива нужно сравнить, равны ли они между собой

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var
  a:array[1..10] of integer;
  b:array[1..10] of integer;
  c:array[1..10] of integer;
 i,j,k: integer;
Begin
 
Writeln('введите 1 карточку, это 10 целых чисел в строку через пробел');
for i:=1 to 10 do
 Begin
   Read(a[i]);
   Write(' ',a[i]);
 End;
   Readln;
   Readln;
 
Writeln('введите 2 карточку, это 10 целых чисел в строку через пробел');
for j:=1 to 10 do
 Begin
   Read(b[j]);
   Write(' ',b[j]);
 End;
   Readln;
   Readln;
 
Writeln('введите 3 карточку, это 10 целых чисел в строку через пробел');
for k:=1 to 10 do
 Begin
   Read(c[k]);
   Write(' ',c[k]);
 End;
   Readln;
   Readln;
 
x:=0;
 for i:=1 to 10 do
 for j:=1 to 10 do
 for k:=1 to 10 do
 if a[i]=b[j]=c[k] then x:=x+1;
 Write('Число ',a[i],' повторяется ',x,' раз' в карточке ', ,' ?? )

@Blocked · 04.09.2020, 18:17

Ты серьезно? А это что?
Это твое.

Pascal
1
2
3
4
5
6
if x>0 then
        Writeln('Число ',a[i],' из карточки 1 повторяется  ',x,' раз во второй карточке.' );
    if y>0 then
        Writeln('Число ',a[i],' из карточки 1 повторяется  ',y,' раз в третьей карточке.' );
    if z>0 then
        Writeln('Число ',b[i],' из карточки 2 повторяется  ',z,' раз в третьей карточке.' );

У тебя три массива в String? x, y, z, полагаю тоже?
И мое

Pascal
1
write('Карта номер: '+crd+' : ');

Зачем ты мне пишешь про стандарты? Мы с тобой в одинаковом стандарте выдали решение. Зачем ты мне затираешь про различие паскаля? Если ты посмотришь на предоставленный код СТ, то там сразу понятно какой стандарт используется, логичнее дать ответ в нем же.

Добавлено через 6 минут
А в начале можно было сказать, что дело в знаках арифметическом и препинания?
Скажем "+" на "," заменить? Я искал ошибку в самом выводе, зачем затирать про стандарты? Все на столько просто было.

Добавлено через 1 минуту
Извините уж, я на делфи специализирован, там все немного иначе.

Добавлено через 7 минут

нигде нет.
потому что я нигде к строке String не прибавляю число Integer

а Write / Writeln описаны в стандарте языка Паскаль.
и да, там через запятую можно указывать переменные РАЗНОГО типа.

Добавлено через 2 минуты
смотри сюда - https://ideone.com/dNMO1p
Выделить код

Pascal
1
2
3
4
5
6
7
program ideone;
var 
  i : integer;
begin
    for i:=1 to 3 do
      Writeln('Число повторяется  ',i,' раз во второй карточке.' )
end.

а теперь вставь туда свой код и попробуй выполнить

P.S. Все спокойно работает и так, и по другому.

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .