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

Есть ответ
18.12.2022
403

Ответ


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.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
18.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.