Опубликовано 5 лет назад по предмету Информатика от 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.

Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт

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

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

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

Биология - 3 недели назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Биология - 3 недели назад

Ген днк включает 300 пар нуклеотидов. какова длина, молекулярная масса гена и сколько аминокислот закодировано в нем

Русский язык - 1 месяц назад

Подчеркните грамматическую основу. определите вид дополнения (прямое или косвенное), подпишите их 1) я отправил сестре телеграмму с поздравлением 2) учёные доказали существование жизни в космосе 3) он не знал никаких радостей, кроме чтения книг. 4) и поныне славятся у нас на севере замечательные русские умельцы.5) после тёплой ясной погоды наступило ненастье.6) подруга на станции купила новый иллюстрированный журналы и свежий мягкий хлеб. 7)хохлатые курицы ищут в сене мошек да букашек.8) и туман, и непогоду осень поздняя несёт

Что ты хочешь узнать?

Задай вопрос