profile
Опубликовано 1 год назад по предмету Информатика от sashka9595

дан массив из N целых чисел. определить и вывести три его наибольших значения. например 2 3 4 1 2 8 -5 4-> 8,4,3

  1. Ответ
    Ответ дан Alphaeus


    Program sashka9595;
    uses crt;
    const n=20;
    var
      a:array[1..n] of integer;
      max,i,j,k: integer;
    begin
      writeln('*** alphaues is thinking... ***');
      writeln('***          OK             ***');
      randomize;
      writeln('Массив: ');
      for i:=1 to n do
        begin
          a[i]:=random(100)-50;
          write(a[i],'  ');
        end;
      for i:=1 to 3 do
        begin
          k:=i;
          max:=a[i];
          for j:=i+1 to n do
            if a[j]>max then
              begin
                max:=a[j];
                k:=j;
              end;
          a[k]:=a[i];
          a[i]:=max;
        end;
      writeln();
      writeln('Три наибольших элемента массива:');
      for i:=1 to 3 do
        writeln(i,'-й: ',a[i]);
    end.

Самые новые вопросы