{* Три способа заполнения элементов одномерного массива *}

Unit MAS3;
Interface
Implementation
Begin
 writeln('Три способа заполнения элементов одномерного массива');
End.

0
Program pas131911;

Uses mas3.pas; {* Эту строку можно удалить *}
0
Type {* Используемые типы *}
  0   mas = Array [1..10] Of Integer;
  0
Var {* В работе нам потребуются переменные: *}
  0   a : mas;
  0   b : Integer;
  0   c : Integer;
  0   i : Integer;
Begin
  0   Randomize; { 1. Заполнение с клавиатуры }
  0
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
    0
    Begin
      0     Writeln('Введите значение элемента');
      0     Readln(a[i])  0
    End;
  0
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
    0   {Выводим на дисплей}
  0   write(a[i]);
  0   writeln; { 2. Заполнение случайным образом. Для этого мы должны под - ключать датчик случайных чисел}
  0
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
    0   a[i] := random(10);
  0
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
    0   {Выводим на дисплей}
  0   write(a[i]);
  0   writeln; { 3. Заполнение по формуле. Каждый элемент массива должен       быть рассчитан по формуле (например такой)}
  0
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
    0
    Begin
      0     b := random(10);
      0     c := random(10);
      0     a[i] := b + c - i;
      0
    End;
  0
  For i := 1 To 10 Do {* Переменная i увеличивается с 1 до 10 *}
    0   {Выводим на дисплей}
  0   write(a[i]);
  0   writeln; {* Вывод пустой строки *}
  0   Readln; {* Ждем подтверждения пользователя *}
End.