Составьте программу на языке Паскаль. Дам 50 баллов

+ 0 -

Арютка21

18 дек. 2016 г., 2:43:43 (7 лет назад)

const
  nm = 50;{максимальная длина массива}

var
  i, n, t: integer;
  a: array[1..nm] of integer;

begin
  Write('Введите количество элементов в массиве: ');
  Readln(n);
  Writeln('Введите элементы массива через пробел или Enter');
  for i := 1 to n do Read(a[i]);
  i := 1;
  while i < n - 1 do
  begin
    if (i + 3 <= n) then begin t := a[i]; a[i] := a[i + 3]; a[i + 3] := t end;
    t := a[i + 1]; a[i + 1] := a[i + 2]; a[i + 2] := t;
    i := i + 4
  end;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(a[i], ' ')
end.

Тестовое решение:
Введите количество элементов в массиве: 13
Введите элементы массива через пробел или Enter
1 2 3 4 5 6 7 8 9 0 1 2 3
Результирующий массив
4 3 2 1 8 7 6 5 2 1 0 9 3

+ 0 -

Dedf111chf

18 дек. 2016 г., 4:34:41 (7 лет назад)

Это Вы ЗАТРАТИТЕ 50 баллов. А дадите 25 и еще половину (+13) за лучший ответ, т.е. максимум 38.

+ 0 -

Den93

18 дек. 2016 г., 5:29:39 (7 лет назад)

Вопрос - операторы procedure и function изучали?

+ 0 -

Anuta96

18 дек. 2016 г., 6:34:35 (7 лет назад)

нет

+ 0 -

Nastyastolbova

18 дек. 2016 г., 7:21:15 (7 лет назад)

Т.е. процедуры не проходили. Это плохо.