Три задания на массивы

[VaLenOK007]

1.Дан одномерный массив Yn. Все элементы со значениями, попадающими в интервал [C ; D] заменить на среднее арифметическое элементов с нечетными значениями. Удалить все элементы с дробной частью.

2.Сформировать одномерный массив, состоящий из кол-ва положительных, отрицательных и нулевых элементов матрицы X[n,m]

3.Все элементы матрицы X[n,n](квадратная матрица) лежащие ниже второстеменной диагонали, заменить суммой элементов с дробной части, стоящих в нечетных столбцах

Ребяты, кто сможет, пазязя, хелпните! Ооооочень надо, куча признательностей в ответ! Тому кто умеет это не сложно, а мне вот разобрать код тоже подспорье!

[Pein95]

вы хоть чтото сделайте, иначе вам во фриланс прямой дорогой.

[Alex11223]

Либо пробуйте сделать что-то сами, показывайте, рассказывайте что не получилось, либо решу за вознаграждение вебмани\ЯД (контакты в подписи).

состоящий из кол-ва положительных, отрицательных и нулевых элементов матрицы

Эм... из 3 элементов что ли?

Язык кстати какой?

[Pein95]

Alex11223 я думаю что тут надо просто из двумерного масива все елементы перенести в одномерный) хотя хз)

[VaLenOK007]

ТУт найти положительные, отрицательные, нулевые, и просто числа сколько их нарисовать в линеечку, я могу дать код на примере одномерного массива, а вот в двумерку у меня не получалось переделать...

[PASCAL]program mas;
uses crt;
var
i,pol,otr,nul:integer;
x:array[1..100]of real;
n:integer;
begin
writeln('vvedite n');
readln(n);
otr:=0;
pol:=0;
nul:=0;
for i:=1 to n do begin
readln(x[i]);
if x[i]<0 then otr:=otr+1;
if x[i]>0 then pol:=pol+1;
if x[i]=0 then nul:=nul+1;
end;
writeln('polojit',pol);
writeln('otricat',otr);
writeln('nulev',nul);
readln;
end. [/PASCAL]

[VaLenOK007]

Язык паскаль, забыл уточнить

[Alex11223]

Дык а причем тут массив одномерный или двухмерный? Чтобы пройти двухмерный массив просто 2 цикла for нужно (вложенный цикл).

for i:=1 to n 
   for j:=1 to m do
   begin
      //делать что-то с x[i,j];
   end;