Цитата:
Сообщение от ummasha
Это первое, что пришло мне в голову))) Но программу я обязательно доработаю.
|
Маша, но ведь вся эта цепочка просто эквивалентна if i>j !
Решение, конечно, правильное, и даже в чем-то оригинальное, но не проще ли так:
Вместо
Цитата:
For j:=1 to n do
If (i=j+1)or(i=j+2)or(i=j+3)or(i=j+4) then S:=S+a[i,j];
|
задать цикл по столбцам в виде:
For j:=1 to i-1 do S:=S+a[i,j];