С БЛОК СХЕМОЙ
program pascal52;
var A: array[1..100] of integer;
NN, i, j: integer;
begin
write('размер массива NN = ');
readln(NN);
for i := 1 to NN do
begin
write('a[' ,i, '] = ');
read(a[i])
end;
for i := 2 to NN do
for j := 1 to i - 1 do
if a[i] = a[j] then begin
writeln('Номера: ', j, ' и ', i);
end;
end.

Популярно: Информатика

• 

  MoNsTeR221

  23.04.2021 05:27
  Написать достоинства и недостатки текстового редактора Microsoft...
• 

  Holmes9

  10.12.2020 00:18
  Написать программу на языке Паскаль, где при вводе двух целых...
• 

  Coldflame7

  26.04.2021 10:32
  В первый год разработки месторождения было добыто 100000 тонн...
• 

  nikita4502

  11.03.2023 20:14
  Логические и арифметические основы ЭВМ 1) a = 299,5 b = 67,1...
• 

  nica26

  13.02.2022 19:28
  Программу и блок-схему можно на листочке...
• 

  прояна

  31.03.2023 15:45
  F = B∨(C& ¬A) ∨ (A&B) Решите умоляяяю...
• 

  sveta2015w

  05.01.2020 18:07
  информатика база данных...
• 

  Lumenarix

  03.10.2022 17:15
  Определить количество штук плитки, необходимой для ремонта пола...
• 

  3458

  17.01.2023 17:06
  19. Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками...
• 

  креореглеонл

  19.07.2020 07:56
  Значение арифметического выражения 5^1200 +25^1000 - 5^100 записали...