Помогите пожалуйста составить программу на языке программирования Паскаль дан двухмерный массив целых чисел.Определить сумму тех элементов
10-11 класс
|
массива,сумма индексов которых равна s
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.
Другие вопросы из категории
Читайте также
наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственна.
помогите пожалуйста составить программу в Паскале!!
Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти
Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти