Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Program Alexander1;
uses crt;
const n = 10;
var
  A:array [1..n] of real;
  i,k:integer;
begin
  writeln(*** alphaues is thinking... ***);
  writeln(***          OK             ***);
  Randomize;
  {ввод чисел}
  for i:=1 to n do
    begin
      A[i]:= Random(101)-50;
      write(A[i]:7:2, );
    end;
  writeln(Числа, которые больше своего правого соседа: );
  k:=0;
  for i:=1 to n-1 do
    begin
      if A[i]>A[i+1] then
        begin
          k:=k+1;
          writeln(i,-е число: ,A[i],>,A[i+1]);
        end;   
    end;
  writeln(Всего ,k, таких чисел);
end.