Регистрация
lev93
04.05.2020 22:36
Информатика
Есть ответ 👍

ВТОРНИК, 16 Фев 2021 Программирование

Решить задачу: Даны три числа, вывести их в порядке возрастания. Используя условный оператор.​

235
465
Посмотреть ответы 2

Ответы на вопрос:

lrada123
lrada123
4,6(71 оценок)

Program DaNNuu;

uses crt;

const n=3;

var

 a:array [1..n] of integer;

 i,j,min,temp:integer;

begin

 randomize;

 {создание массива}

 writeln('Элементы массива:');

 for i:=1 to n do

   begin

     a[i]:=random(101)-50;

     write (a[i]:5);

   end;

 {сортировка массива}

 for i:=1 to n-1  do

   begin

     min:=i;

     for j:=i+1 to n do

       if a[min]>a[j] then

         min:=j;

     temp:=a[i];

     a[i]:=a[min];

     a[min]:=temp;

   end;

 writeln();

 {вывод массива}

 writeln('Результат сортировки:');

 for i:=1 to n do

   write(a[i]:5);

end.

Объяснение:

gerty1000
gerty1000
4,7(88 оценок)

n*2

главное чтобы в списке а было больше чем n*2 элементов, иначе ошибка

Объяснение:

Популярно: Информатика