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

Ответы 1

  • Консольное приложение:const n=10; var a:array[1..n] of integer;i,k:integer; beginRandomize;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
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years