Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Basic » помоги с массивом..
помоги с массивом..
массив Y(20) заполнить целыми случайными числами в диапазоне (0-500). Найти максимальный max и минимальный min элементы и поменять их местами. Вывести min & max и массив Y до и после изменения.
1 | Автор: qwert7260 | 2011-02-02, 18:39   |  Репутация: [ + 0 ]
Вот код на паскале, думаю перевести на бэйсик перевести сможешь..:

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
2 | Автор: Berestovskiy | 2012-02-25, 14:30   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Basic » помоги с массивом..
  • Страница 1 из 1
  • 1
Поиск: