Предмет: Информатика,
автор: valyabugrina
Пожалуйста, помогите с задачей в паскале! Написать решение задачи для программы Паскаль. Спасибо)
Имеется
массив А из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и
равные нулю. Используя оператор цикла, составить программу, выполняющую задачу: Найти номера первых двух рядом
стоящих одинаковых элементов в массиве.
Например, если А={2,6,4,4,2,5,5,4},
результат: 3 и 4.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: asiyamamitova
Предмет: Другие предметы,
автор: asiyausarova70
Предмет: Английский язык,
автор: armineqosyan
Предмет: Химия,
автор: лёнчик2013
Предмет: История,
автор: marinka31