2. Основні алгоритми опрацювання масивів.

При опрацюванні масивів важливими є операції вводу значень масиву та виводу їх на екран. . Розглянемо виконання цих операцій. При цьому вважатимемо, що діє такий опис:

const n=...;

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

var

 a:massiv;

 i:integer;

 

2.1. Введення елементів масиву з клавіатури на екрані.

for i:=1 to n do

begin

 write(‘Введіть¢,i,’-й елемент масиву:’);

 read(a[i]);

end;

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]<min then min:=a[i];

 writeln(‘Результат’);

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

end.

2.5. Обчислення суми елементів масиву

Program pr2;

Uses сrt;

const n=20;

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

var

 a:massiv;

 i:integer;

 s: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;

 s:=0;

 for i:=1 to n do s:=s+a[i];

 writeln(‘Результат’);

 writeln(‘Сума s=’, s:4);

end.

2.6. Обчислення добутку елементів масиву з парними номерами.

Program pr3;

Uses crt;

const n=20;

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

var

 a:massiv;

 i:integer;

 p:longint;

begin

 clrscr;

 randomize;

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

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

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

 writeln;

 p:=1;

 i:=2;

 repeat

 p:=p*a[i];

 i:=i+2;

 until i>n

 writeln(‘Результат’);

 writeln(‘Добуток елементів з парними номерами p=’, p:4)

end.