Заполните массив А из 5-ти элементов

@igorich76 · Регистрация: 28.07.2021

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

Здравствуйте!
Мне кажется, добил задачу, но автопроверка не пропускает. В чём может быть проблема?

Задание:
Заполните массив А из 5-ти элементов, вводя целые числа с клавиатуры. Затем введите целое число X и найдите все значения, равные X.

Пример 1:
Массив:
1 2 3 1 2 Что ищем:2
Нашли: A[2]=2, A[5]=2

Пример 2:
Массив:
1 2 3 1 2 Что ищем:6
Ничего не нашли.

Мой код:

Pascal

##
var A: array[1..5] of integer;
var i, nx,x: integer;
A[1]:= 1;
A[2]:= 2;
A[3]:= 3;
A[4]:= 1;
A[5]:= 2;
//writeln(a[1], a[2],a[3],a[4],a[5]);
readln(x);
nx:= 0;
for i:=1 to 5 do
    if A[i] = x then 
      begin
      nx:= i;
      write('A[',nx,']=',x,' ')
      end;
if nx = 0 then write(0);

Но система автопроверки пишет следующее:

Failed test #1 of 4. Wrong answer
This is a sample test from the problem statement!

Test input:
1 2 3 1 2
2

Correct output:
A[2]=2 A[5]=2

Your code output:
A[1]=1 A[4]=1

Но в IDE всё правильно! На вход даю и 1, и 2, и 3 и всё правильно выводится, а в автопроверке нет. Пишет, что 2 подаём, а получаем A[1]=1 A[4]=1, фигня какая-то...

@XzzzX · 25.11.2021, 20:15

это потому что Вы заданию не следуете. Вас просят

Сообщение от igorich76

Заполните массив А из 5-ти элементов, вводя целые числа с клавиатуры

а Вы его как заполняете?
система проверки отправляет на ввод 1 2 3 1 2 - массив, а Вы ожидаете число, по которому нужно искать. в итоге и получается, что ваша программа считывает единицу и выводит соответствующие элементы.

короче говоря, используйте var a:= readarrinteger(5); вместо var A: array[1..5] of integer; и затрите бесполезные присвоения. но учтите, что массивы считанные таким образом начинаются с 0

@igorich76 · 25.11.2021, 20:37 **[ТС]**

Спасибо Вам огромное за то, что поправили. Надо мне внимательнее быть. Вот, поправил, но всё равно, что-то ещё подкрутить нужно, сам уже не пойму что...

Pascal

##
var A:= readarrinteger(5);
var nx,x: integer;
readln(x);
nx:= 0;
for var i:=0 to 4  do
    if A[i] = x then 
    begin      
      nx:= i;      
      write('A[',nx+1,']=',x,' ');      
      end;      
if nx = 0 then write(0);

Ответ системы:
Failed test #2 of 4. Wrong answer

@XzzzX · 25.11.2021, 21:37

Сообщение от igorich76

Ответ системы:
Failed test #2 of 4. Wrong answer

а что происходит во втором тесте? какой ввод система делает?

@igorich76 · 26.11.2021, 05:23 **[ТС]**

Сообщение от XzzzX

а что происходит во втором тесте? какой ввод система делает?

Мне не видны эти тесты. Когда-то видно, если ошибка очевидная, а когда-то нет.
Окончательный вариант (без nx = 0), но задача не решена:

Pascal

##
var A := ReadArrInteger(5);
var nx, x: integer;
readln(x);
nx := 0;
for var i := 0 to 4 do
  if A[i] = x then 
  begin
    nx := i;      
    write('A[', nx + 1, ']=', x, ' ');      
  end;

@XzzzX · 26.11.2021, 07:16

дайте ссылку на эту платформу. может что то прояснится

@igorich76 · 26.11.2021, 07:57 **[ТС]**

Stepic.org: https://stepik.org/70477

урок 16.3 "Поиск в массиве", первая задача. Буду премного благодарен...

@eaa · 26.11.2021, 09:52

там точно PascalABC.NET обучают? по стилю написания кода это больше похоже на Turbo Pascal.

@igorich76 · 26.11.2021, 14:59 **[ТС]**

Сообщение от eaa

там точно PascalABC.NET обучают?

Ну, теория, скорее, Базовый Паскаль, а компилятор PABC.Net. Так что всё норм.

@XzzzX · 26.11.2021, 15:49

ну я там не смог найти саму систему проверки, а регаться не очень хочется.
единственное что, возможно когда ничего не найдено нужно выводить именно

Сообщение от igorich76

Ничего не нашли.

больше в голову что-то ничего не идёт

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	26.11.2021, 15:49	10
	ну я там не смог найти саму систему проверки, а регаться не очень хочется. единственное что, возможно когда ничего не найдено нужно выводить именно Сообщение от igorich76 Ничего не нашли. больше в голову что-то ничего не идёт 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	25.11.2021, 20:15	2
	это потому что Вы заданию не следуете. Вас просят Сообщение от igorich76 Заполните массив А из 5-ти элементов, вводя целые числа с клавиатуры а Вы его как заполняете? система проверки отправляет на ввод `1 2 3 1 2` - массив, а Вы ожидаете число, по которому нужно искать. в итоге и получается, что ваша программа считывает единицу и выводит соответствующие элементы. короче говоря, используйте `var a:= readarrinteger(5);` вместо `var A: array[1..5] of integer;` и затрите бесполезные присвоения. но учтите, что массивы считанные таким образом начинаются с 0 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	25.11.2021, 21:37	4
	Сообщение от igorich76 Ответ системы: Failed test #2 of 4. Wrong answer а что происходит во втором тесте? какой ввод система делает? 0

@XzzzX 400 / 276 / 119 Регистрация: 09.07.2021 Сообщений: 996
	26.11.2021, 07:16	6
	дайте ссылку на эту платформу. может что то прояснится 0

@igorich76 0 / 0 / 0 Регистрация: 28.07.2021 Сообщений: 17
	26.11.2021, 07:57 [ТС]	7
	Stepic.org: https://stepik.org/70477 урок 16.3 "Поиск в массиве", первая задача. Буду премного благодарен... 0

@eaa Status 418 4578 / 2345 / 602 Регистрация: 26.11.2017 Сообщений: 5,265 Записей в блоге: 3
	26.11.2021, 09:52	8
	там точно PascalABC.NET обучают? по стилю написания кода это больше похоже на Turbo Pascal. 0

@igorich76 0 / 0 / 0 Регистрация: 28.07.2021 Сообщений: 17
	26.11.2021, 14:59 [ТС]	9
	Сообщение от eaa там точно PascalABC.NET обучают? Ну, теория, скорее, Базовый Паскаль, а компилятор PABC.Net. Так что всё норм. 0