Question

Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел. Delphi 7

Answer 1

Консольное приложение:
const n=10; 
var a:array[1..n] of integer;
i,k:integer; 
begin
Randomize;
writeln('Массив A:');

for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i]:4)
 end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
 if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end;
writeln;
writeln('k = ',k);
end.

Пример:
Массив A:
  31  37  20  22  37  11  45  19   3  14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9 
k = 4

Answer 2

Конечно, вот пример кода на Delphi 7, который выполняет указанную задачу:

delphiCopy code
program FindNumbers;

uses
  SysUtils;

var
  N, K, i: Integer;
  Numbers: array of Integer;

begin
  Write('Введите количество чисел N: ');
  Readln(N);

  SetLength(Numbers, N);

  for i := 0 to N - 1 do
  begin
    Write('Введите число ', i + 1, ': ');
    Readln(Numbers[i]);
  end;

  K := 0;

  Write('Числа, которые меньше своего левого соседа: ');

  for i := 1 to N - 1 do
  begin
    if Numbers[i] < Numbers[i - 1] then
    begin
      Inc(K);
      Write(i + 1, ' ');
    end;
  end;

  Writeln;
  Writeln('Количество таких чисел (K): ', K);
end.

Этот код сначала запрашивает у пользователя количество чисел N, затем последовательно вводит N чисел в массив Numbers. Далее, он итерирует по массиву и проверяет каждое число на условие "меньше своего левого соседа". Если число удовлетворяет этому условию, его индекс (номер + 1) выводится на экран и счетчик K увеличивается. В конце выводится количество чисел K, удовлетворяющих условию.