Deklaracja typow tablicowych
type
ttab=array[1..n,1..m] of integer;
ttab=array of integer; //tab dynamiczna
itp;
var
i:integer;
tab:array[1..10] of integer;
sr:real;
odch:real;
begin
sr:=0;
for i:=1 to 10 do sr:=sr+tab[i];
sr:=sr/10;
for i:=1 to 10 do odch:=odch+(tab[i]-sr);
odch:=odch/10;
end.
Mam nadzieje ze o to brykalo