Пожалуйста, помогите с задачей в паскале! Написать решение задачи для программы Паскаль. Спасибо) Имеется массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и равные нулю. Используя операто...
Пожалуйста, помогите с задачей в паскале! Написать решение задачи для программы Паскаль. Спасибо)
Имеется
массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и
равные нулю. Используя оператор цикла, составить программу, выполняющую задачу: Найти номера первых двух рядом
стоящих одинаковых элементов в массиве.
Например, если А={2,6,4,4,2,5,5,4},
результат: 3 и 4.
Гость
Ответ(ы) на вопрос:
ГостьProgram random_;
uses crt;
type
arr = array[0..1000] of shortint;
var
ar,b,i:word;
a:arr;
begin
randomize;
for ar:=0 to 999 do
a[ar]:= random(18)-9;
b:=10;
i:=0;
repeat b:=a[i]; i:=i+1; until(b = a[i]) or (i = 999);
if i = 999 then writeln('Повторяющихся чисел нет!') else writeln(i,' ',i+1) ;
end.
Не нашли ответ?
Похожие вопросы