В произвольно заданных двух одномерных массивах определить максимальные элементы и поменять их местами

@Алексей Лужецки · Регистрация: 17.10.2010

В произвольно заданных двух одномерных массивах определить максимальные элементы и поменять их местами

Добавлено через 6 часов 29 минут
помогите кто нибудь((

@jonni · 23.11.2010, 13:55

Pascal

Program Name;
var a:array[1..n] of integer;
b:array[1..n] of integer
max,max1,i,j,k,:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(100);
b[i]:=random(100)
end;
max:=a[1];
max1:=b[1];
for i:=1 to n do begin
if(a[i]>max) then begin max:=a[i];k:=i;end;
if(b[i]>max1) then begin max1:=b[i];l:=i;end;
end;
a[k]:=max1;b[l]:=max;
for i:=1 to n do begin
Write(' ',a[i]);
Write(' ',b[i]);
end;
readln;
end.

@Алексей Лужецки · 23.11.2010, 14:04 **[ТС]**

Спасибо большое)))))

@Алексей Лужецки 0 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 13
		1
	В произвольно заданных двух одномерных массивах определить максимальные элементы и поменять их местами 23.11.2010, 13:48. Просмотров 2116. Ответов 2 Метки нет (Все метки) В произвольно заданных двух одномерных массивах определить максимальные элементы и поменять их местами Добавлено через 6 часов 29 минут помогите кто нибудь(( 0

@Алексей Лужецки 0 / 0 / 0 Регистрация: 17.10.2010 Сообщений: 13
	23.11.2010, 14:04 [ТС]	3
	Спасибо большое))))) 0

Опции темы

В произвольно заданных двух одномерных массивах определить максимальные элементы и поменять их местами

Решение