Сайт для студентов, школьников, преподавателей, программистов и математиков. Здесь можно online решить задачу, пройти
тесты, найти решение или программу, получить помощь. Можно добавить задачу, программу, статью.
массив Y(20) заполнить целыми случайными числами в диапазоне (0-500). Найти максимальный max и минимальный min элементы и поменять их местами. Вывести min & max и массив Y до и после изменения.
Вот код на паскале, думаю перевести на бэйсик перевести сможешь..:
var a,b:array[1..10]of integer; p,pp,i,q,w,z:integer; begin p:=low(p); pp:=high(pp); for i:=1 to 10 do begin read(a[i]); b[i]:=a[i]; if a[i]>p then begin p:=a[i];q:=i;end; if a[i]<pp then begin pp:=a[i];w:=i;end;end; z:=a[q];a[q]:=a[w];a[w]:=z; for i:=1 to 10 do write(b[i],' '); writeln; for i:=1 to 10 do write(a[i],' '); end.
Вход
