1. Информатика
  2. Написать код программы на языке

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

мимими109 мимими109    2   19.06.2019 17:05    0

Ответы
AnaDanik AnaDanik  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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
iIИльяIi iIИльяIi  07.10.2019 14:30
Важно! мах 1. в рабочей зоне производились замеры концентрации вредного вещества. получен ряд значений (в мг/м3): 12, 16, 15, 14, 10, 20, 16, 14, 18, 14, 15, 17, 23, 16. необходимо...
Nastya251551 Nastya251551  07.10.2019 14:30
Жизни и смерти! мах ! ! найдите наиболее популярный туристический маршрут из четырех реализуемых фирмой (моду), если за неделю последовательно были реализованы следующие маршруты...
maruya3 maruya3  23.12.2020 15:07
по ИНФОРМАТИКЕ даю лучший ответ и ИСТОЧНИК ИНФОРМАЦИИ КАКУЮ ИНФОРМАЦИЮ МЫ ВОСПРИНИМАЕМ?​...
Dashakon58 Dashakon58  23.12.2020 15:06
Sketch Up Make программасы ортасында шар қалай жасалады? ​...
FraGamer228 FraGamer228  23.12.2020 15:06
решить две задачи по информатике...
Darklife1 Darklife1  23.12.2020 15:06
1.Модельдеу терминін анықтаңыз. А) растрлық немесе процедуралык текстуралар үлгілерініңВ) жарық көздерін орнату және баптау;C) сахна мен ондағы объектілердің үш өлшемді математикаD)...
Viktoriya24101 Viktoriya24101  26.03.2020 21:24
Поддержка программ восстановления системы. Теоретическая часть: • Какие инструменты восстановления встроены в операционную систему? • Какие инструменты для ремонта доступны в...
Pacan4ikForever Pacan4ikForever  26.03.2020 21:24
Вычислить сумму чисел, которые больше 20, в наборе из заданного количества чисел (количество чисел сообщается в начале исполнения программы). Написать таблицу, которая показывает,...
margo1236 margo1236  26.03.2020 21:24
Бос орындармен бөлінген сөздерден тұратын жол берілген. онда канша сөз бар екенін анықтаңыз...
WIS1 WIS1  20.05.2019 15:50
Al+s=al2s3 2al(0)+3s(0)=al2(3+)s3(2-) al(0)-3e=al(3+) |2| 2al-6e=2al окислитель s(0)+2e=s(2-) |3| 3s+6e=3s востановитель сделайте по такому типу решения fe+o2=feo...

Популярные вопросы