Массив, ППЦ( Опции

[TeRmInWeB]

В массиве Т(25) сделать все четные числа отрицательными, а для не четных подсчитать количество и сумму! как? и чего с этим делать непойму(!

[мисс_граффити]

ну например так (заполняется случайными числами):

var T: array [1..25] of integer;
i: integer;
begin
randomize;
for i:=1 to 25 do
  T[i]:=random(10);
end.

[Тёмный Эльф]

В массиве Т(25) сделать все четные числа отрицательными

Узнать четное ли число можно с помощью операции mod (взятие остатка от деления). И если возвращаемое значение 0, значит, число четное. После этого просто делаем это число отрицательным.

for i:=1 to 25 do
     begin
        if ((massiv[i] mod 2) = 0) then 
              a[i]:=-a[i];
     end;