нужна помощь по решению задач на паскале, одномерные массивы!

[NOUSTA]

ну типо надо решить задачку по простой школьной программе.

В целочисленном массиве А[1:n] найдите число, повторяющееся максимальное количество раз. Если таких чисел несколько, то одно из них.

[alex_fcsm]

const n=20;
var a:array[1..n] of integer;
    i,j,temp,count,max:integer;
    
begin
for i:=1 to n do
 begin
 a[i]:=random(10);
 write(a[i],' ');
 end;
writeln;
count:=0;
for i:=1 to n do
 begin
  temp:=0;
  max:=a[i];
   for j:=1 to n do
    if a[i]=a[j] then inc(temp);
  if temp>count then begin
                      count:=temp;
                      max:=a[i];
                     end;
 end;
 writeln(a[i]);
end.

[NOUSTA]

ок спасибочки программка работает!
а вот еще можно решить
тоже на одномерный массив:
измените знак всех нечетных (четных) элементов массива, состоящего из L чисел (предусмотреть случай наличия нецелых элементов).

[capta1n]

вот с нецелыми будет проблемка, потому что операторы mod и odd с ними работать не будут

[NOUSTA]

вот вот тоже такая запара. давай тогда с четными, пофиг на эти нечетные

[capta1n]

я говорю про нецелые

[alex_fcsm]

Во-первых, хотелось бы и от Вас что-то увидеть ;во-вторых, как для нецелых чисел определить четность???

[capta1n]

четное - которое делится без повышения количества значащих разрядов на 2 - я так это понял

пример : 2.4=2.400000=2.4(0) ( хотя можно написать и 2.4999999=2.4(9), но я отталкиваюсь от нулей)
2.4/2=1.2=1.2000000=1.2(0) - количество значащих разрядов не увеличилось => число четноe
-----
2.3=2.300000=2.3(0)
2.3/2=1.15=1.15000000=1.15(0) - очевидно, что значащих разрядов стало 2, а не 1 после точки, => число поделилось с "остатком", то есть увеличило точность до еще одного разряда, а значит оно нечетное

[NOUSTA]

да блин! фиг знает тупая задача! я если чесно вообще смысла не поняла. короче ребята у меня стена! я не поняла эту задачу

[alex_fcsm]

проще говоря если оканчивается на нечетную цифру то нечетное
Попробуйте развить и что0нибудь все-таки написать