Tömb típus - példaprogramok

1.

program Atlagsz;
uses Crt;
type TombTip = array [1..10] of integer;
var	t: TombTip;
	atlag: real;
	osszeg, i: integer;
begin
  ClrScr;
  {beolvasás}
  for i := 1 to 10 do
    begin
      Write('Kérem a tömb ',i,'. elemét: ');
      ReadLn(t[i])
    end;
  {átlagszámítás}
  for i := 1 to 10 do
      osszeg := osszeg+t[i];
  atlag := osszeg/10;
  WriteLn('A tömb elemeinek számtani átlaga: ', atlag:10:2);
  ReadLn
end.


2.

program Fibonacci;
uses Crt;
type TombTip = array [1..20] of integer;
var  t: TombTip ;
     i: integer;
begin
  t[1] := 1;
  t[2] := 1;
  for i := 3 to 20 do
     t[i] := t[i-2] + t[i-1];
  for i := 1 to 20 do
     Write(t[i], '  ');
  ReadLn
end.