Roszek

program tablice;
uses Crt;
const max=100;
type
        wektor=array[1..max] of integer;


var n: byte;
    a,b:wektor;




procedure los (var a:wektor; n:byte);
var i:byte;
begin
        randomize;
        for i:=1 to n do a[i]:=random(90)+10;
end;

procedure wypis (var a:wektor; n:byte);
var i:byte;
begin
        for i:=1 to n do write(a[i]:4);
        writeln;
end;

function suma (a:wektor; n:byte):integer;
var i:byte;
    s:integer;
begin
        s:=0;
        for i:=1 to n do s:=s+a[i];
        suma:=s;
        writeln('Suma wynosi: ',s);
end;


procedure odwrot (var a:wektor; n:byte);
var i:byte;
begin
        for i:=n downto 1 do b[i]:=a[n+1-i];
        a:=b;
        writeln;
end;

procedure zeruj (var a:wektor; n:byte);
var i:byte;
begin
        for i:=1 to n do
        begin
        if (a[i] mod 2)<>0 then a[i]:=0;
        end;
end;

begin
        ClrScr;
        write('Ile liczb bedzie zawierala tablica? n= ');
        readln(n);
        los(a,n);
        wypis(a,n);
        suma(a,n);
        odwrot(a,n);
        writeln('Po odwroceniu: ');
        wypis(a,n);
        writeln;
        zeruj(a,n);
        writeln('Po wyzerowaniu nieparzystych: ');
        wypis(a,n);
        readkey;
end.