Сформировать и вывести на печать массив

program zad4;
uses crt;
var
   a:array[1..100] of integer;
   i,n,k:integer;
begin
  clrscr;
  randomize;
  write('Ðàçìåðíîñòü ìàññèâà: ');
  readln(n);
  writeln('Ôîðìèðîâàíèå ìàññèâà...');
  for i:=1 to n do
   begin
    a[i]:=random(111)-50;
    write(a[i]:4);
   end;
  writeln;
  for i:=1 to n do
   if a[i] mod 3=0 then k:=k+1;
  writeln('Êîëëè÷åñòâî ýëåìåíòîâ êðàòíûõ òðåì: ',k);
  readln;
end.

for i:=1 to 20 do
  a[i]:=random(111)-50;

max:=1;
min:=1;
for i:=2 to 20 do
begin 
  if a[i]>a[max] then
    max:=i;
  if a[i]<a[min] then
    min:=i
end;
WriteLn('Result: ',a[min]+a[max]);

c:=0;
for i:=1 to 20 do
  if a[i] mod 3 = 0 then
    inc(c);

min:=a[1];
max:=a[1];
for i:=1 to n do
begin
   if a[i] >max then max:=a[i];
   if a[i] <min then min:=a[i];
end;
sum:=max+min;

program zad4;
uses crt;
var
   a:array[1..100] of integer;
   i,n,k,max,min:integer;
begin
  clrscr;
  randomize;
  write('Ðàçìåðíîñòü ìàññèâà: ');
  readln(n);
  writeln('Ôîðìèðîâàíèå ìàññèâà...');
  for i:=1 to n do
   begin
    a[i]:=random(111)-50;
    write(a[i]:4);
   end;
  writeln;
  max:=a[1];
  min:=a[1];
  for i:=1 to n do
   begin
   if a[i]>max then max:=a[i];
   if a[i]<min then min:=a[i];
   if a[i] mod 3=0 then k:=k+1;
  end;
  writeln('Êîëëè÷åñòâî ýëåìåíòîâ êðàòíûõ òðåì: ',k);
  writeln('Ñóììà ìèíèìàëüíîãî è ìàêñèìàëüíîãî ýëåìåíòà: ',min+max);
  readln;
end.