Кто платно решит две задачки на Фортране? Динамические массивы

Question

Очень нужна помощь в решении 1-2 задач по фортрану на тему динамические массивы. Методичка есть, оплата договорная. Задачки типа такой:
Сформировать одномерный массив из неположительных элементов,
расположенных ниже главной диагонали квадратной матрицы
(начинать с элементов 1-го столбца) . Вывести полученный
одномерный массив.
Связь:
Скайп: lightningexta
ICQ: 633933606
ВК: http://vk.com/id4265054#/id145967519

Алена *** · Accepted Answer

держи за так типо такое решение 
 
program prog 
implicit none 
integer,allocatable::mat(:,:),tbl(:) 
integer n,m/0/,i,j 
real r 
call random_seed() 
print *,'enigu la grandeco de la matrico' 
read *,n 
allocate(mat(n,n),tbl((n**2-n)/2)) 
print *,'matrico' 
do i=1,n 
 do j=1,n 
 call random_number(r) 
 mat(i,j)=10-int(20*r) 
 enddo 
 write(*,'(100i4)') mat(i,:) 
enddo 
do j=1,n-1 
 do i=j+1,n 
 if(mat(i,j)<= 0) then 
 m=m+1 
 tbl(m)=mat(i,j) 
 endif 
 enddo 
enddo 
print *,'tabelo' 
write(*,'(100i4)') (tbl(i),i=1,m) 
deallocate (mat,tbl) 
end program prog

Алексей Иванов · Answer

Уважаемый Кужъябук! 
Фортран нынче изучают исключительно студиозусы-технари, то есть Ваши коллеги. И наверняка среди них найдется кто-то, кто за бутылку пива напишет это архисложное задание. В общем, ищите в реале.

Анатолий Клементьев · Answer

ваши деньги у нас не в ходу.