|
массив 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.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
