Напишите в паскаль. массив из 15 элементов заполнить случайными четными числами в интервале от -25 до 70. вывести полученный массив на экран в строчку.найти сумму наибольшего и наименьшего элементов массива. (использовать пузырьковую сортировку).

160

271

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

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

vigolnikov

Информатика

4,6(33 оценок)

Var a,b,c: integer; m2: array [1..15] of integer; begin for a: =1 to 15 do begin m2[a]: = random (95)-25; write (m2[a], ' '); end; for a: =1 to 15 do for c: =1 to 14 do if m2[c]< m2[c+1] then begin b: =m2[c]; m2[c]: =m2[c+1]; m2[c+1]: =b; end; writeln (m2[1], ' ',m2[15]); end.