Написать код программы на языке Pascal. Имеется массив A из n ...
Написать код программы на языке Pascal.Имеется массив A из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Найти номера первых двух рядом стоящих одинаковых элементов в массиве. Так, если A={2,6,4,4,2,5,5,4}, результат: 3 и 4
Есть ответ
12.12.2022
406
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
