Дан линейный массив А[1..N], содержащий целые числа.Посчитать сумму чисел,имеющих одинаковые

Сколько максимально количество ячеек?

6 ячеек

программка не тяжелая, но длинная (поэтому что мы не знаем какой обязан быть остаток, придётся сочинять 2-ой массив) решать за 8 банкетов не охото(желая бы за 25 ).Если было бы известен остаток, то программку составлю за 2 минуты

а вторую задачу можешь решить ? Дан линейный массив А[1..N], содержащий целые числа.Конвертировать элементы массива по последующему правилу :если элемент четный , то разделить его на 2 , если нечетный -поменять его остаток от дробления на 3

да на данный момент пришлю решение

Спасибо для тебя громадное :) ты меня выручил

2 задачка

var 
m:array[1..100] of integer;
i,n:integer;
begin
readln(n); // число ячеек 1lt;=nlt;=100
for i:=1 to n do
readln(m[i]); // вводим сам массив
for i:=1 to n do
begin
if m[i] mod 2 = 0 then m[i]:=m[i] div 2;
if m[i] mod 2 = 1 then m[i]:=m[i] mod 3;
end;
for i:=1 to n do
writeln(m[i])

end.