yli4ka2007
01.11.2022 07:08

Написать код программы на языке pascal.имеется массив a из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. найти номера первых двух рядом стоящих одинаковых элементов в массиве. так, если a={2,6,4,4,2,5,5,4}, результат: 3 и 4​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Альберт211
02.10.2020 05:32

program pr;

const n = 10;

var

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

i:integer;

begin

for i:=1 to n do readln(A[i]);

for i:=1 to (n-1) do

begin

if A[i]=A[i+1] then begin

writeln(i,' и ',i+1);

break;

end;

end;

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота