Помогите пожалуйста. Срочно нужно. Дан одномерный массив, состоящий из 10 элементов. Вывести на экран в строчку. Поменять местами значения от 6-10 элеме

1 Январь 0001



Помогите пожалуйста. Срочно нужно.

 

Дан одномерный массив, состоящий из 10 элементов.Вывести на экран в строчку.Поменять местами значения от 6-10 элементов массива элементов массива и снова вывести на экран!

  • Паскаль АВС. Программа меняет местами половинки массива: (6-10) и (1-5)



    Program nana05;
    uses crt;
    const n=10;
    var
      a:array [1..10] of integer;
      i,j,min,temp:integer;
    begin
      writeln(‘*** alphaues is thinking… ***’);
      writeln(‘***          OK             ***’);
      writeln();
      randomize;
      writeln(‘Элементы массива:’);
      {создание и вывод массива}
      for i:=1 to n do
        begin
          a[i]:=random(100)-50;
          write (a[i]:5);
        end;
    {меняем местами половинки массива}
      for i:=1 to 5 do
        begin
          temp:=a[i];
          a[i]:=a[5+i];
          a[5+i]:=temp;
        end;
      writeln();
      writeln(‘Результат:’);
      for i:=1 to n do
        write(a[i]:5);
    end.









Информатика

Комментарии закрыты.