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

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

Ответ

Ответ дан 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.

Другие вопросы

Математика - 5 дней назад

10 сентября был вторник. в какой день недели выпадает 13 августа в этом году?

Математика - 2 недели назад

На 9 машинах доставили 47700 кг зерна, сколько зерна могут перевезти 12 таких машин?

Математика - 2 недели назад

Масса слона на 24т700кгменьше массыкитакаковамассакита если масса слона 5т 800кг

Физика - 2 недели назад

Рассчитать среднюю скорость: s = 16 км t = 18 мин. ответ в м/с и в км/ч

Физика - 2 недели назад

Сколько часов и минут в -1,3ч и -2,75ч