Code:

1) popuniti matricu mxn spiralno pocev od levog gornjeg ugla (moze i neki drugi) u smeru kazaljke na satu (moze i suprotno)
npr za 3x3:
1 2 3
8 9 4
7 6 5

2) napisati program za mnozenje dva broja zadata kao niz cifara duzine ne vece od 100.

3) naci povrsinu preseka i unije dva pravougaonika zadata koordinatama levog gornjeg i desnog donjeg temena

4) neka su date tacke A i B i neka je ravan podeljena na jedinicne kvadrate. odrediti na koliko mesta sece duz AB te kvadrate

5) matricom mxn je zadata mapa livade gde 0 predstavlja travu, a 1 drvo. sa x i y su zadate koordinate polozaja krave :). krava gleda na sever i krece se sve dok ne naidje na drvo ili ogradu, a onda skrece za 90 stepeni udesno. posle odredjenog vremena krava ce da udje u ciklicnu putanju. odrediti posle koliko koraka i koja je duzina te ciklicne putanje

6) izvrsiti sazimanje niza na sledeci nacin: podniz istih susednih elemenata menjamo njihovim zbirom i operaciju ponavljamo sve dok moze. ne koristiti pomocni niz i trazi se prvi podniz sa leve strane

Code:

program cifre2;
var
       c1,c2,c3,c4,N,x:integer;
begin
       writeln('Unesite cetvorocifren broj');
       read(N);
       c1:=N div 1000;
       c2:=N mod 100;
       c3:=(N mod 1000) div 100;
       c4:=(N div 10) mod 10;
       x:=(c1+c2)-(c3-c4);
       writeln('Broj', N, ':', '(', 'c1','+','c2',')','-','(','c3','+','c4',')','=', x);
end.         

Code:
program zadatak;
type    matrica=array[1..100,1..100] of integer;

var a:matrica;
    n,m,b:integer;

procedure ucitaj(var a:matrica;n,m:integer);
var i,j:integer;

begin
for i:= 1 to n do
 for j:= 1 to m do
  readln(a[i,j]);
end;

function ok(a:matrica;n,m,b:integer):boolean;
var i,j,s,br:integer;
    p:boolean;

begin 
    br:=0;
    for j:=1 to m do begin
    p:=true;
    while i<=n and p do begin   <------------------- Poakazuje da je tu greska...Kao ne poklapa se to p ili vec sta je u pitanju...
    if a[i,j]=b then begin p:=false; 
        br:=br+1;
    i:= i+1;
    end;
    if br=m then p:=true;
    end;
    ok:=p;
end;



begin
writeln('Unesite n i m');
readln(m,n);
writeln('Unesite b');
readln(b);
writeln('Unesite elemente matrice');
ucitaj(a,n,m);
if ok(a,n,m,b) then writeln('1') else writeln('Ne postoji broj ',b,' u svakoj koloni matrice');
readln
end.