Преобразовать массив по правилу - Turbo Pascal (33778)
Формулировка задачи:
Друзья, уже сломал голову. Кому не сложно помогите пожалуйста.
Даны вещественные массивы x1, x2,…, xn и y1, y2,…, yn. Преобразовать их по правилу: большее из значений xi и yi принять в качестве нового значения xi, а меньшее – в качестве нового значения yi.
Первый раз искал минимальный и максимальный элемент массива дополнительной функцией, но преподавателя такой способ не строил. Если кто-то сможет помочь решить данную задачу не использую функции и процедуры был бы премного благодарен.
Код к задаче: «Преобразовать массив по правилу - Turbo Pascal (33778)»
uses crt; const n=10; var x,y:array[1..n] of real; i,idx1,idx2:integer; max1,max2,k:real; BEGIN clrscr; for i:=1 to n do begin x[i]:=random(53); y[i]:=random(53); end; writeln('MASS X : '); for i:=1 to n do write(x[i]:3:2,' '); writeln; writeln('MASS Y : '); for i:=1 to n do write(y[i]:3:2,' '); writeln; for i:=1 to n do if x[i]<y[i] then begin k:=x[i]; x[i]:=y[i]; y[i]:=k; end; writeln; writeln('MAS X : '); for i:=1 to n do write(x[i]:3:2,' '); writeln; writeln('MASS Y : '); for i:=1 to n do write(y[i]:3:2,' '); readkey; END.
9 голосов, оценка 4.444 из 5
СОХРАНИТЬ ССЫЛКУ