Quote (vova)
Массив71(7)Дан массив размера N. Поменять порядок его элементов но обратный
Code
Program array71;
Uses crt; {* Подключаем внешние файлы *}
Type {* Типы переменных *}
mas = Array[1..100] Of integer;
Var {* В работе нам потребуются переменные: *}
i : integer;
k : integer;
l : integer;
a : integer;
c : integer;
Begin
clrscr; {* Очищаем экран *}
write('Введите длину массива A: ');
readln(a);
Begin
randomize;
For i := 1 To a Do {* Переменная i увеличивается с 1 до a *}
ar[i] := random(100);
End;
For i := 1 To a Do {* Переменная i увеличивается с 1 до a *}
write(ar[i] : 3, '|');
writeln; {* Пропускаем одну строку *}
If a Mod 20 Then
c := (a - 1) Div 2
Else c := a Div 2;
For i := 1 To c Do {* Переменная i увеличивается с 1 до c *}
Begin
k := ar[i];
ar[i] := ar[a - i + 1];
ar[a - i + 1] := k;
End;
For i := 1 To a Do {* Переменная i увеличивается с 1 до a *}
write(ar[i] : 3, '|');
End.