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

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.

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;