SHARE
TWEET

Untitled

a guest Sep 22nd, 2019 73 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program fsfesef;
  2. var
  3.    myArray:array of integer;
  4.    i,n,Bufer,Length:integer;
  5.    IsCorrect:boolean;
  6. begin
  7.    IsCorrect := False;
  8.    repeat
  9.       Writeln('Введите количество элементов массива в диапазоне от 2 до 20');
  10.       try
  11.          Readln(n);
  12.          if (n < 2) or (n > 20) then
  13.             begin
  14.                Writeln('n введено неправильно!оно должно быть в диапазоне от 2 до 20');
  15.             end
  16.          else
  17.             IsCorrect := True;
  18.       except
  19.          Writeln('n введено неправильно!оно должно быть в диапазоне от 2 до 20');
  20.       end;
  21.    until IsCorrect;
  22.    SetLength(myArray, n);
  23.    Length := (n - 1);
  24.    writeln('Введите ',n,' элементa(ов) массива(целые числа)');
  25.    for i := 0 to Length do
  26.       repeat
  27.          IsCorrect := true;
  28.          try
  29.             writeln('Введите a[',i,'] элементов массива(целые числа)');
  30.             read(myArray[i]);
  31.          except    
  32.             IsCorrect := false;
  33.             writeln('это не число!');
  34.          end;
  35.       until(IsCorrect);
  36.    write('Начальный массив:');
  37.    for i := 0 to Length do
  38.       write(myArray[i],',');
  39.       writeln;
  40.    for i := 0 to Length  do
  41.       if (i mod 2) = 1 then
  42.       begin
  43.          Bufer := myArray[i];
  44.          myArray[i] := myArray[i - 1];
  45.          myArray[i - 1] := Bufer;
  46.       end;
  47.    write('Конечный массив:');
  48.    for i := 0 to Length do
  49.       write(myArray[i],',');
  50. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top