Сочинение на тему "безопасность в интернете" не !

Сочинение на тему безопасность в интернет в интеренете ходит много вирусов. чтоб на них не попасть надо быть акуратным не надо саходить на незнокомые сайты без родителей. надо заходить только на провериные сайты.

writeln('a[',i,']=',a[i]);

readln;

end.

если массив состоит из 10 элементов то код программы:

 

const

  n=10;  

var

  a: array[1..n] of integer;

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;