AWK odp

    //      zad1
BEGIN {suma=0; print("\t\t\tSUMA");}
{suma = $1+$2+$3; print("|",$1,"\t|",$2,"\t|",$3,"\t|",suma);}
    //      zad2
BEGIN {max=0;suma=0;}
{if(NF>max) max=NF;
for(i=1;i<=NF;i++) {tab[NR,i]=$i; suma+=$i;}
tabs[NR]=suma;
suma=0;
}
END {for(i=1;i<=max;i++) printf("\t"); printf("SUMA\n");
for(i=1;i<=NR;i++){
    for(j=1;j<=max;j++){
        printf("|");printf tab[i,j]; printf("\t");
    }
    printf("|");printf tabs[i]; printf("\n");
}
}
    //      zad3
BEGIN {liczba=0;}
/^[^;]/ {liczba+=NF;}
END {printf("Liczba słów: %d",liczba);}
    //      zad4

BEGIN {suma=0;i=1;}
{suma+=$i; i++;}
END {print suma;}
    //       zad5

BEGIN {licznik=0;l=0;}
$1=="#replace"
{
licznik++;
co[licznik]=$2;
czym[licznik]=$3;
gdzie[licznik]=NR;}

$1!="#replace" {
l++; tresc[l]=$0; gdziew[l]=NR
}
END {
printf("Tekst oryginalny\n");
for(i=1;i<=l;i++) print tresc[i];
for(i=1;i<=l;i++)
for(j=1;j<=licznik;j++)
if(gdziew[i]>gdzie[j]) gsub(co[j],czym[j],tresc[i]);
printf("Tekst po zamianie\n");
for(i=1;i<=l;i++)
print tresc[i];
}
    //       zad6
{$0=gensub(/([A-Z])(\.)([A-Z][a-z]+)/,"\\3\\2\\1","g");
$0=gensub(/[ \t]+/," ","g");
print;}
// zad7
BEGIN {FS=":"; max=0;}
{if($2>max) max=$2;}
END {print max;}
    //       zad8
/[A-Za-z0-9]+[A-Za-z0-9_\.-]*@([0-9]\.|([1-9][0-9]\.)|(1[0-9][0-9]\.)|(2[0-4][0-9]\.)|(25[0-5]\.))([0-9]\.|([1-9][0-9]\.)|(1[0-9][0-9]\.)|(2[0-4][0-9]\.)|(25[0-5]\.))([0-9]\.|([1-9][0-9]\.)|(1[0-9][0-9]\.)|(2[0-4][0-9]\.)|(25[0-5]\.))([0-9]|([1-9][0-9])|(1[0-9][0-9])|(2[0-4][0-9])|(25[0-5]))/ {printf("e-mail: %s\n",$1);}
    //       zad9
BEGIN {kwadrat=0; poz=0;}
{poz=index($0,"*"); if(poz!=NR) {print("To nie kwadrat");kwadrat=0;} else kwadrat=1;}
END {if(kwadrat==1) printf("To jest kwadrat");}
    //       zad10
BEGIN {tmp=0; poz=0; kwadrat=1;}
{tmp=index($0,"*");
 if(NR==1) poz=tmp;
 if(NR>1) poz--;
 if(tmp!=poz) {printf("To nie kwadrat"); kwadrat=0;}
}
END {if(kwadrat) printf("To jest kwadrat");}
    //       zad11
BEGIN {dl=0; tmp1=0; tmp2=0;}
{
if(NR==1 && $o~/\*+\*$/) dl=length($0);
if ($0~/\*+\*$/ && (length($0)==dl))  tmp1++;
if ($0~/^\* +\*$/ && (length($0)==dl))  tmp2++;
}
END {if(tmp1==2 && (tmp1+tmp2==dl)&& dl==NR)  print "OK"; else print"ERROR";}