Помогите пожалуйста составить программу на языке программирования Паскаль дан двухмерный массив целых чисел.Определить сумму тех элементов массива,сумма индексов которых равна s

Question

Помогите пожалуйста составить программу на языке программирования Паскаль дан двухмерный массив целых чисел.Определить сумму тех элементов массива,сумма индексов которых равна s

Гость

Ответ(ы) на вопрос:

Accepted Answer

Var i,j,s,g: integer; a: array [1..5,1..5] of integer; Begin // считываешь массив и "s" For i:=1 to 5 do for j:=1 to 5 do If i+j=s then g:=g+a[i,j]; Writeln(g) End.