Преобразовать массив по правилу - Turbo Pascal (33778)

Формулировка задачи:

Друзья, уже сломал голову. Кому не сложно помогите пожалуйста. Даны вещественные массивы x1, x2,…, xn и y1, y2,…, yn. Преобразовать их по правилу: большее из значений xi и yi принять в качестве нового значения xi, а меньшее – в качестве нового значения yi. Первый раз искал минимальный и максимальный элемент массива дополнительной функцией, но преподавателя такой способ не строил. Если кто-то сможет помочь решить данную задачу не использую функции и процедуры был бы премного благодарен.

Код к задаче: «Преобразовать массив по правилу - Turbo Pascal (33778)»

textual
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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы