Дан массив из n случайных чисел (числа вводятся с клавиатуры).поменять местами максимальные и минемальные элементы массива
166
500
Ответы на вопрос:
Паскаль? 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.
Популярно: Информатика
-
mazaso14.09.2021 12:26
-
Ука1234513.01.2020 03:02
-
bogdanstarunskp06m9y12.11.2020 17:20
-
микс11111107.07.2022 20:08
-
Etopizdato14.06.2022 16:03
-
Lego4028.06.2020 12:01
-
почта630.05.2022 06:16
-
pamjatnichaja28.01.2020 05:31
-
Alekseimiller07.09.2022 14:47
-
OnAcHaYa2o208.10.2020 08:26