A: Array [1.20] Of Integer;I: Integer;
Begin
For I :=1 To 20 Do {Організовуємо цикл з параметром I по усіх можливих}Readln(A[I]); {значенням індексів і вводимо A[I] з клавіатури }For I :=20 Downto 1 Do {Роздруковуємо масив в зворотному порядку}Write(A[I]VVV')
End.
Ця програма вводить з клавіатури 20 цілих чисел, а потім роздруковує їх в зворотному порядку. Тепер спробуйте написати таку ж програму, але без використання структури масиву. У скільки разів вона стане довша? До речі, введення мова Паскаль циклу з параметром було обумовлено багато в чому необхідністю обробки інформаційних послідовностей, т. е. масивів.
Наступна програма заповнює масив значенням квадратів індексів елементів :
Program M3;ConstN=50; {Константа N міститиме кількість елементів масиву}Var
A: Array [1.N] Of Integer;I: Integer;
Begin
For I :=1 To N DoA[I]:=I*IFor I :=1 To N DoWrite(A[I]VVV')
End.
Надалі для учбових цілей ми використовуватимемо масиви, задані за допомогою генератора випадкових чисел. У мові Паскаль випадкові числа формує функція Random. Числа виходять дробовими, рівномірно розташованими в інтервалі від 0 до 1. Вираження, що дає ціле випадкове число в інтервалі [- 50,50] виглядатиме так:Trunc(Random*101) - 50
Задамо і роздрукуємо випадковий масив з сорока цілих чисел:
Program M4;ConstN=40; {Константа N міститиме кількість елементів масиву}Var
A: Array [1.N] Of Integer;I: Integer;
Begin
For I :=1 To N DoBegin
