Question

Помогите пожалуйста! (Pascal)
Даны массивы X(x1,x2,...,x10) и Y(y1,y2,...,y10). На место массива Х записать массив Y, а на место массива Y – массив Х.

Answer 1

Ответ:

var i,tmp: integer;

var X,Y: array [1..20] of integer;

begin

// Заполним массивы и выводим их на экран

writeln('Исходные массивы');

writeln('X':5,'Y':5);

randomize;

For i:= 1 to 20 do

begin

X[i]:=random(201)-100;

Y[i]:=random(201)-100;

writeln(X[i]:5,Y[i]:5);

end;

// Меняем местами

For i:= 1 to 20 do

begin

tmp := X[i];

X[i] := Y[i];

Y[i] := tmp;

end;

// Выводим на экран результат

writeln('Результат:');

writeln('X':5,'Y':5);

For i:= 1 to 20 do

begin

writeln(X[i]:5,Y[i]:5);

end;

end.