Ответы на вопрос:
var a: array [1..100] of integer; n,i: byte; m,b,c: byte; beginm: =1; b: =1; write('введите n = '); readln(n); for i: =1 to n do begin readln(a[i]); if a[i]< a[m] then m: =i; if a[i]> a[b] then b: =i; end; c: =a[m]; a[m]: =a[b]; a[b]: =c; write('результат: '); for i: =1 to n do write(a[i],' '); end.
п.с. как будет возможность набацаю на бейсике
Популярно: Информатика
-
Вопросникыыы28.09.2021 10:19
-
vadimkakuz20031.05.2020 22:18
-
sfsv4641de2r09.12.2021 19:18
-
Ксюшечка5987437404.12.2022 07:28
-
ььь5528.07.2021 20:30
-
yulyakarpenko316.11.2022 08:12
-
rama2512.01.2020 12:09
-
ryenasssss24.10.2020 08:22
-
curlyprettygirl13.07.2021 21:19
-
сонясонясоня131.03.2020 15:59