Помогите пожалуйста! (Pascal)
Даны массивы X(x1,x2,...,x10) и Y(y1,y2,...,y10). На место массива Х записать массив Y, а на место массива Y – массив Х.
Ответы
Ответ дал:
0
Ответ:
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад
8 лет назад