задачи на одномерный и двумерный массивы

[Toxass]

1.Из массива С(Н) переписать в массив Ф(И) элементы больше среднего значения массива С(Н).
2. Переставить столбцы матрицы соответственно к уменьшению сум отрицательных чисел в столбиках.

[Викдон]

что есть среднее значение массива? к примеру массив 25 10 38 4 0 8 какое имеет среднее значение?

[Toxass]

Сообщение от Викдон

что есть среднее значение массива? к примеру массив 25 10 38 4 0 8 какое имеет среднее значение?

это сложить все цифры массива и поделить на их количество

[Викдон]

1 задачка:
Const n =10;
var C:array[1..n] of integer;
F:array[1..n] of integer;
i,j,summa:integer;
srednee:real;
begin
summa:=0;

for i:=1 to n do {Ввод массива}
begin
write('Введите ',i,' Элемент');
readln(C[i]);
summa:=summa+C[i];
end;

srednee:=(summa/n); {Среднее арифметическое}
j:=1;
for i:=1 to n do
if C[i]>srednee then
begin
F[j]:=C[i];
j:=j+1;

end;

for i:=1 to j-1 do
write(F[i],' ');

readln;

end.

[Toxass]

када цифры вводишь оно не по русски пишет чета, а так спасиба. ещеб №2 решить и буду очень признателен!

[Викдон]

ты в коде замени все русские слова на транслит: 'Введите ',i,' Элемент' на
'Vvedite ',i,' Element'

[Toxass]

пожалуйста помогите со второй задачей. БУДУ ОЧЕНЬ БЛАГОДАРЕН

[Викдон]

за вознаграждение)))

[Toxass]

к сожалению у самого денег нету)))) так бі уже мож с кем то договорился))) не ну на самом деле помогите еси кто знает, а то меня жестоко .... препод вобщем к*зел у меня

[Arigato]

препод вобщем к*зел у меня

Препод к*зел, или Вы учиться не хотите?