массивы

[legita]

поменять местами соответствующие элементы двух массивов между собой:X(-3,20,13.5,-8.008),Y(1,-5,0,4.5).на печать вывести полученные массивы.
вот мой вариант,неправильный только:

program M_1;
var
X:array[1..4] of real;
Y:array[1..4] of real;
k,n:integer;
begin
readln('vvedite massiv X');
for k:=o to 3 do read(X[k]);
readln('vvedite massiv Y');
for n:=0 to 3 do read(Y[n]);
X:=X[k];
X[k]:=Y[n];
Y[n]:=Y;
end.

[andrewpalkin]

А ты вообще запускал/а этот вариант , что в нем не работает ?

program M_1;
var
  X:array[1..4] of real;
  Y:array[1..4] of real;
  n:integer;
  temp:real;
  
  begin
    writeln('vvedite massiv X');
    for n:=1 to 4 do read(X[n]);
    
    writeln('vvedite massiv Y');
    for n:=1 to 4 do read(Y[n]);

    for n:=1 to 4 do
    begin
      temp:=X[n];
      X[n]:=Y[n];
      Y[n]:=temp;
    end;
    
    write('massiv X : ');
    for n:=1 to 4 do write(X[n]+' ');
    writeln();
    
    write('massiv Y : ');
    for n:=1 to 4 do write(Y[n]+' ');
    
  end.

[legita]

нужен идентификатор переменной о_О

спасибо))))))))))))))

[andrewpalkin]

Сообщение от legita

нужен идентификатор переменной о_О

ты о чем ?

[legita]

да все нормально уже))я тупень просто)