var i,j,A,B:integer; begin read(A,B); for i:=1 to 3*A do begin for j:=1 to 3*B do if i>2*A then if j>B then write('*') else write(' ') else if j>B then write(' ') else write('*'); writeln; end; end;
m1:=a[1]; m2:=m1; for i:=2 to n do if A[i]>m1 then if A[i]>m1 then begin m1:=m1; m1:=A[i]; end else begin if A[i]<m1 then m1:=A[i]; end else if m1=m1 then m1:=A[i]; writeln('2.max. prvok = ',m2);
6 |
1 |
7 |
13 |
5 |
18 |
20 |
7 |
27 |
27 |
11 |
38 |
Napíšte program, ktorý prečíta číslo N a vypíše prvých N riadkov tabuľky. Môžete použiť ľubovoľný programovací jazyk, ktorý ste používali na strednej škole.