Exiled

program didziausias_maziausias_masyvas; var i, max, min,v,n: integer; x : array [1..5] of integer; begin n:=5; for i:=1 to n do begin read(x); end; min :=x[1]; max :=x[1]; for i := 1 to 5 do begin if min > x then min := x; if max < x then max := x; end; readln; writeln('Didziausias elementas masyve: ', max); writeln('Maziausias elementas masyve: ', min); readln; end.

jo su pascaliu, o del uzdaviniu tikslumo tai gavau lapeli pirma pamoka su uzdaviniais, ji nusifotografavau telefonu ir sakiau kad ateisiu per 7 pamoka ;DD tai parasiau uzdavini taip kaip jis buvo pateiktas man ;) dar pasikonsultuosiu su kita informatikos mokytoja , isvis nebesuprantu kuriu velniu as ta informatika pasiemiau..... anyway, dekingas!! ismeginsiu visus variantus rasykit, dar laiko turiu :P

Duotas masyvas X(n). Raskite didziausia ir maziausia elementus masyve. kitas uzdavinys:Duotas masyvas A(n) ir skaicius y. suskaiciuokite kiek kartu skaicius y kartojasi masyve. Prasau padekit, cia man nulems labai daug ka sitas dalykas,o su fps as nieko nesuprantu. jei galit parasykit kaip rasyt i programa, su visais kableliais ir pns.. dekoju :)) rasykit tik iki 14valandos, jei veliau - nevarkit nereikes, dekoju! :))