20100128587

pogoda.pas

■•ogram liczby; ses crt;

u*

tab : array [..161 of integer; i:integer;

egin

clrscr;

for i:= to i’ do

bogiń

writoC'podaj ',i,’ liczbo *>; readln<tab( i 1>;

end;

for i:»l to 10 do write<tabEil, ' '); writeln;

for i: =* to L0 do l if tab[i]> then witeCtabl i ]> ; for i:*! to 10 do writoln ;

~if tabliK then write<tab[ i ]>;

readln