wuss

procedure pirmas(n:integer; var a:mas); var max,min:integer; begin for i := 1 to n do begin max := 0; min:=0; for j := 1 to n do if a[i,j] > max then max := j; if a[i,j]< min then min := j; a[i, max] := k; a[i, min] := k; end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]); writeln; end; end;

Aš būčiau daręs kitaip, susirašai visus simbolius į vieną kintamąjį ir žiūri ar jame yra rastas simbolis:
pvz:
 

simb :=',/.\';][-'; if pos(c,simb) > 0 then k := k +1;
Be to, vietoj k := k +1; gali naudoti k+=1; kiečiau atrodo :)
 
 
O pas tave klaida tame, kad reikia visada lyginti
 

if c=(',')orc=('.')orc=(':')orc=('?')orc=(';')orc= ('"')orc=('!') then k:=k+1;

O kas sakė, kad aš rimtas pardavėjas? ;) Kaip lietuvių išmintis byloja traukinys šikančių nelaukia o dėl tokio menkniekio nemanau, kad įžeidinėti reikia :D

program matrica; VAR a : array[ 1 .. 1000, 1..1000] of integer; m, n, i, j, i2: integer; begin //write ('Kiek bus eiluciu ? '); readln(m); nereikalingas write ('Kiek bus stulpeliu? '); readln(n); m:=0; for i:=1 to n do begin for j :=1 to m do begin a[i,j] := 0; write(a[i,j],' '); end; for i2 := 1 to n-m do begin a[i,i2+m] := i2; write(a[i,i2+m],' '); end; writeln(); m += 1; end; end.

program matrica; VAR a : array[ 1 .. 1000, 1..1000] of integer; m, n, i, j, i2: integer; begin //write ('Kiek bus eiluciu ? '); readln(m); nereikalingas write ('Kiek bus stulpeliu? '); readln(n); m:=0; for i:=1 to n do begin for j :=1 to m do begin a[i,j] := 0; write(a[i,j],' '); end; for i2 := 1 to n-m do begin a[i,i2+m] := i2; write(a[i,i2+m],' '); end; writeln(); m += 1; end; end.

Pažiūrėk prie kompiuterio dokumentų ar taip instrukcijų, gal yra kas nors parašyta ką tos lemputės reiškia.

KTU pirmas kursas :D
Parasyk man i skype crezzyman
Gal galesiu pagelbeti.... :)

Konkurentas :D
nors taip nepavadinčiau :D

Sveiki, įvertinkit forumą, ar tinkamos temos. Gal kokių modulių trūksta.
Kaip domenas tokiai svetainei? :)
www.flopikas.com

Deja, Promo, taip yra tik ant IPB 2 serijos. IPB 3 jau skiriasi.
 
ACP -> Look and Feel -> Skin Management'e paspausk ant norimo skin'o -> renkiesi Global templates ----> global template

Pasiųlykit puslapių kur galima užsidirbti realių $ o ne daigtų(kai pvz lockerz.com) Žinau kad geriausias uždarbis yra kurti puslapius ir dėti google adsense, bet to nesiųlykit kolkas... :) Daug nesitikiu iš tų uždarbio svetainių, bet vieną kitą $ galima gauti :D Siųlyti tuos puslpaius kur tikrai galima atsiimt išmokėjimą. Dėkui :)

Dar prisikiškit prie šiknos žyžą ir paperskit :)

Protu tikrai nepasizymi.

tu kvailiausias.

Tai ir žiūrim nemokamai, o kas negerai? Nėra sunku tuos taškus surinkti. O kuo ši svetainė skiriasi nuo kitų panašių, tai tuo, kad yra nepiratinė.

tai ar atsakys kas man i klausima kaip jus ziurite uzeja visiskai nemokamai?
Nes matau temos autorius net temos nemoka sukurti.
Filmai.in,nemokami filmai internetu
tokia tema akys drasko kaip pagalvoji kad uz ziurejima jau pradejo reikti moket.

Dar liko 12 Malkolmas vidurinysis serijų šnd peržiūrėti :blink:

Žaidžiu šachmatais :D Turiu porą pirmos vietos diplomų ir medalis kažkur dar svaidosi ^_^

Nukapot tau interneto kabelį. Ir taip jau visas internetas pilnas tokių šiukšlių kaip tu.

Ėsk kiaušius :D
 
Nu man būtent reikia spamint slaptais tikslias :D

Sveiki, gal žinote kokių gyvų forumų apie programavimą? Kiek googlinau tai visi mirę :D

Sveiki, gal žinote kokių gyvų forumų apie programavimą? Kiek googlinau tai visi mirę :D

Sveiki, gal žinote kokių gyvų forumų apie programavimą? Kiek googlinau tai visi mirę :D

Tokiam dalbajobui tik pirstus nukapot kad brudas nespamintu :D

gal žinote latviškų saitų tokių kaip videogaga.lv na kad būtų galima mėtyt reklamas