Основные действия по работе с массивами — Pascal(Паскаль)

Program Massiv1;
  uses Crt;
  const { Раздел описания констант, то есть постоянных величин, определяемых в программе заранее и не изменяющихся по ходу выполнения программы }
  N=10; { Имена констант не используются для имен переменных величин (из раздела var) }
  var
      A: array [1..N] of integer; { 1..N - тип индекса. Для индекса выбран интервальный тип, то есть интервал целых чисел от 1 до N, где N определено в разделе const }
      i:integer; { Переменная, хранящая индекс элемента массива, к которому идет обращение }
begin
{ Задание значений элементов массива как случайных чисел }
  Randomize; { Инициализация датчика случайных чисел }
{ Задание элементов массива; }
  for i:=l to N do { Переменная i изменяется в цикле от 1 до N, то есть мы по очереди перебираем все элементы массива }
  A[i]:=Random(100); { В очередной элемент массива A[i] записываем случайное число от 0 до 99, обратите внимание: i - номер элемента массива (принято говорить "индекс"), A[i] -значение элемента массива }
{ Вывод элементов массива на экран в одну строку }
  ClrScr;
  Writeln('Введенный массив;');
  for i:=1 to N do
  write(A[i]:4); { На каждый элемент массива выделяется по 4 позиции строки, чтобы они не склеивались при выводе!}
  writeln;
  readln {Этот "пустой" оператор вывода отработает только один раз и переведет курсор на новую строку для дальнейшей работы }
end.

Leave a Comment

+ 85 = 88