Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Дан одномерный массив, состоящий из 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.