Програмування масивів

2.2.  Заповнення елементів масиву випадковими цілими числами. Числа беруться з діапазону [0, 99].

randomize;

for i:=1 to n do a[i]:=random(100);

 

2.3. Форматний друк елементів масиву .

for i:=1 to n do write(a[i]:4); 

writeln 

 

Далі розглянемо типові алгоритми опрацювання масивів.

2.4. Пошук найменшого елемента масиву

Program pr1; 

Uses crt;

const n=20; 

type massiv=array[1..n] of integer;

var

  a:massiv;

  i:integer;

  min:integer;

begin

  clrscr;

  randomize; 

  for i:=1 to n do a[i]:=random(100);

  writeln(‘Вихідні дані’);

  for i:=1 to n do write(a[i]:4); 

  writeln; 

  min:=a[1]; 

  for i:=2 to n do if a[i]
  writeln(‘Результат’);

  writeln(‘Найменший елемент min=’, min:4);

end.