Re: [ LUGOS-PROG ] array stevilk

[Matija Grabnar]

V perl-u:

my max;
grep($_>$max?($max=$_):0,@arr);



V C-ju:

int max(int *arr,int len) {
int i;
int max=arr[0];
    for (i=0;i<len;i++) {
        if (arr[i]>max) {
           max=arr[i];
        }
    }
    return max;
}