Дан массив c1,c2,...,cn Изменить матрицу,увеличив каждый элемент...

[Over77over]

Дан массив c1,c2,...,cn Изменить матрицу,увеличив каждый элемент...

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

Дан массив c1,c2,...,cn Изменить матрицу,увеличив каждый элемент, который меньше элемента главной диагонали , находящегося с ним в одной строке,на Ci , I-номер строки.Подсчитать число изменившихся элементов.

Вот на фортране

dimension A(5,5),C(5)
integer k,I,J
real A,C
write (,) 'vvedite matrizy'
read (,) ((A(I,J),J=1,5),I=1,5)
write (,) 'vvedite massiv C'
read (,) C
k=0
do I=1,5,1
do J=1,5,1
if (A(I,J)<A(I,I)) then
A(I,J)=A(I,J)+C(I)
k=k+1
end if
end do
end do
write (*,26) ((A(I,J),J=1,5),I=1,5)
26 format (1x,'izmen matriza'/&
(5x,5(F5.1,1x)))
write (,) 'k=',k
end

 

[Vladimir_S]

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

Предлагаю Вам (для разнообразия) попытаться справиться с заданием самостоятельно, взяв за основу решение любой из предыдущих задач. В конце концов, Вам нужно научиться программированию, а не тупому бездумному скатыванию готовых решений с форумов. Ну а уж если что-то не пойдет - выкладывайте проблемный код, обращайтесь - поможем.
Удачи!