1)Вводится n чисел. Найти максимальное число кратное 3м.

2)Вводится n чисел. Найти кол-во чисел не кратное 3м.

СРОЧНО

//PascalABC.Net 3.2beginvar a:=readArrInteger ('Вводите: ', readinteger('n ='));var max:=a[0]; var count:=0;for var i:=0 to length(a)-1 dobeginif a[i]>max then max:=a[i];if a[i] mod 3<>0 then inc(count);end;writeln ('1: ', max);write ('2: ', count)end.