Задание прикреплено. Надеюсь на помощь.Все в Pascal

Задание прикреплено. Полагаюсь на помощь.
Все в Pascal

Задать свой вопрос
1 ответ

const

n=5;

var

a : array [1..n] of integer;

i: integer;

begin

for i:=1 to n do

read(a[i]);

writeln('Массив:');

for i:=1 to n do

write(a[i],' ');

writeln;

for i:=2 to n do

if (a[i]=a[1]) then

writeln('Элемент массива, совпадающий с первым:', i);

end.

Антон Кохновер
вывод как на фото нужен(т.е только 3 5) либо можно как у меня?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт