Совокупность, набор, коллекция объектов

Множество наверное 

Дано: k(окуней)=12500;           k(пескарей)=25000;           k(карасей)=к(щук)=6250 найти: lo,lп,lк,lщ, решение: 1 надо найти общее кол-во рыбы : n=ko+kп+kк+kщ 2 найти вероятность ловли каждого вида рыбы:   pо = ко/n ;   pп = кп/n ;   pк=pщ = кк/n.найдем количество информации о ловле рыбы каждого вида:   iо =  log2( 1/pо );   iп=log2   (1/pп   );   iк =  iщ =  log2   (1/pк   )найдем количество информации о ловле рыбы любого вида:   i=pо∙log2pо +  pп∙log2pп   +pк∙log2pк   +pщ∙log2p щ

Вцикле  проверяете (a mod 2) равно ли нулю, то бишь равен ли нулю остаток. если да - число четное. одновременно с этим первое четное число кладете в переменную max, а остальные четные сравниваете с этой переменной, если какое-то число больше - его кладете в переменную max. ясно? если нет, могу написать программу, но лучше чтобы вам было ясно upd: можно через массивы, но это не хардкорно a, max, counter   :   integer; begin max : = 0; for counter = 1 to 15 do     begin     writeln("write ur number: ");     readln(a);     if (a mod 2) = 0 then          if a > max then max : = a;     end; writeln(max); readln(); end. ––––––––––––––––––––––––––––––––––– вам б-г