Паскаль? const n=< требуемое число элементов> ; var a: array [1..n] of integer; i,i_max,i_min: byte; max,min,x: integer; begin writeln(' введите элементы массива через пробел'); for i: =1 to n do read(a[i]); max: =0; min: =1000; i_max: =0; i_min: =0; for i: =1 to n do begin if a[i]> max then begin max: =a[i]; i_max: =i; end; if a[i]< min then begin min: =a[i]; i_min: =i; end; end; x: =max; a[i_max]: =min; a[i_min]: =x; for i: =1 to n do write(a[i],' '); readln; end.
kris5009646
08.01.2023
//создаем массив, summa: =0; countertwo : = 0; for counter : = 1 to n do if (massive[counter] mod 5 = 0) then begin summa: = summa + massive[counter]; countertwo : = countertwo + 1; end; writeln(summa/countertwo); readln() end.