sluchmas.PAS

{* Заполняем масcив случайными числами *}

Unit SLUCHMAS;
Interface
Implementation
Begin
 writeln('Заполняем масcив случайными числами');
End.

Program pas;

Uses sluchmas.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Type {* Создание новых типов данных *}
  m = Array[1..30] Of real;
Var {* В работе нам потребуются переменные: *}
  s     : String;
  masiv : m;
  a     : integer;
  i     : integer;
  b     : integer;
Begin
  writeln('Кол - во элементов массива');
  readln(a);
  writeln('Случайные числа в деапазоне от 0 до');
  readln(b);
  randomize;
  For i := 1 To a Do {* Цикл для i => [1 .. a] *}
  Begin
    masiv[i] := random(b);
  End;
  writeln('Массив заполнен случайными числами');
  For i := 1 To 7 Do {* Увеличиваем i от 1 до 7 с шагом 1 *}
  Begin
    writeln('Ввести значение злемента - ');
    readln(a);
    Writeln('Значение элемента ', a, ' равно - ', round(masiv[a]));
  End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.