profile
Опубликовано 5 лет назад по предмету Информатика от KomarovaDasha

в заданном одномерном массиве поменять местами соседние элементы. (паскаль)

  1. Ответ
    Ответ дан 1a2r3k4a5s7h8a

    var a : array[1..10] of integer; n, z:integer;
    begin 
    readln(n); 
     for var i:=1 to n do 
      readln(a[i]); 
     for var i:=1 to n-1 do begin   
      z:=a[i];   
     a[i]:=a[i+1];     
    a[i+1]:=z;   
     end;   
     for var i:=1 to n do   
     writeln(a[i]);
    end.
    1. Ответ
      Ответ дан 1a2r3k4a5s7h8a
      если я правильно понял
Самые новые вопросы