Блог для маленьких школьников и их родителей
ШколаЛа

ПОМОГИТЕ, ОЧЕНЬ СРОЧНО! ЗАРАНЕЕ СПАСИБО ЗА ВАШУ ПОМОЩЬ. СИСТЕМА ПАСКАЛЬ ​

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

ПОМОГИТЕ, ОЧЕНЬ СРОЧНО! ЗАРАНЕЕ СПАСИБО ЗА ВАШУ ПОМОЩЬ. СИСТЕМА ПАСКАЛЬ ​

Ответов к вопросу: 1
  • igor1437
    02.12.2024 | 19:24

    Ответ:
    pascal
    Объяснение:
    procedure sortmas(a: array of integer);
    var i, j, min, ind: integer;
    begin
     for i := 0 to Length(a) — 2 do
     begin
       min := a[i]; ind := i;
       for j := i + 1 to Length(a) — 1 do
         if a[j] < min then
         begin
           min := a[j]; ind := j;
         end;
       a[ind] := a[i]; a[i] := min;
     end;
    end;

    var a: array of integer;
       n , i: integer;

    begin
     WriteLn(‘Введите размер массива: ‘); Read(n);
     SetLength(a, n);
     Randomize;
     WriteLn(‘Содержимое массива:’);
     for i := 0 to Length(a) — 1 do
     begin
       a[i] := random(100);
       Write(a[i], ‘, ‘);
     end;
     WriteLn;
     sortmas(a);
     WriteLn(‘Три минимальных элемента: ‘, a[0], ‘, ‘, a[1], ‘, ‘, a[2], ‘, ‘);
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.