{ POSTUPNOST2.PAS Copyright (c) } { Program naplni pole A císlami 1,1,2,2,3,3,4,4,...50,50. } { Pole sa vypise v tvare } { a1 } { a2 a3 } { a4 a5 a6 } { ... } { v každom nasledujúcom riadku (okrem posledného) je vždy o jedno } { císlo viac ako v predošlom. } { } { Datum:04.10.2008 http://www.trsek.com } program postupnost2; uses crt; type pole=array[1..100] of integer; var a:pole; i,j,k:integer; procedure riadok; begin writeln; end; begin clrscr; for i:=1 to 50 do begin a[i*2-1]:=i; a[i*2]:=i; end; for i:=1 to 100 do begin if a[i] mod 7=0 then textcolor(9) else textcolor(15); write(a[i]:4); if i mod 20=0 then writeln; end; readln; begin k:=1; j:=0; for i:=1 to 100 do begin write(a[i]:3); j:=j+1; if k=j then begin writeln; j:=0; end; if j=0 then k:=k+1; end; end; readln; end.