Дан массив из 50 случайных чисел из диапазона от - вопрос №7394770500100 от apoploi 13.12.2021 16:42

Question

Информатика: Дан массив из 50 случайных чисел из диапазона от 0 до 100.произведите сортировку массива методом пузырёк и найдите сумму первого и последнего элементов отсортированного массива .я уже написала программу но не могу и не знаю как найти эту сумму, program bubble; var a: array[0..100] of integer; x: integer; i,k: word; begin randomize; writeln( исходный массив: ); for i: =1 to 20 do begin a [i]: =random(51); write ( ,a [i]); end; for k: =1 to 19 do for i: =1 to 20-k do if(a[i] a[i+1]) then begin x:

apoploi · Answer

Const   N = 50;Var   A:array[1..N] of byte;   i,j,B:byte;BeginRandomize;Write( Исходный массив: );For i:= 1 to N do    Begin    A[i]:=random(101);    Write( ,A[i])    End;For i:= 1 to N do    For j:= 1 to N-1 do        if A[j] A[j+1] then           Begin           B:=A[j];           A[j]:=A[j+1];           A[j+1]:=B;           End;WriteLn;WriteLn;Write( Отсортированный массив: );For i:= 1 to N do    Write( ,A[i]);WriteLn;WriteLn;WriteLn( Min + Max = ,A[1]+A[N]);End....