Преобразовать массив по правилу - 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
СОХРАНИТЬ ССЫЛКУ