Решение представлено во вложении.
Язык: Pascal
Пояснение: Если я правильно всё понимаю, то твоя программа должна подсчитывать произведение элементов массива кратных 5.
Так вот, во-первых - для начала необходимо проинициализировать переменную p в самом начале программы:
p:=1; // единица, т.к если мы сюда присвоим ноль, то произведение всегда будет равно нулю.
Во-вторых: я не очень понимаю, зачем нужна строчка №9:
p:=p*a[i] // Она у тебя написана вне конструкции if. Поэтому получается так, что ты считаешь произведение всех элементов массива, а не только кратных 5. К тому же, если найдётся элемент кратный пяти, то p домножится на него ещё раз.
Почему p = 0?
P могла быть равна 0 из-за строчки №9. В массиве мог сгенерироваться элемент с нулевым значением. А т.к у тебя было лишнее присвоение вне конструкции if, то твоё произведение было бы равно нулю.
А теперь реальная причина, по которой p = 0.
Компилятор выделил память для переменной p, но т.к ты её не инициализировал, то в этом выделенном под p участке памяти могло быть что угодно. Чтобы избежать различных конфликтов, если ты самостоятельно явно не инициализируешь переменную, то компилятор её обнуляет сам. Что и произошло в твоём случае. У тебя p просто не могло быть равным другому числу, потому что 0*(любое число) = 0.
Я исправил твою программу, теперь она работает правильно. Строки, которые я перенёс в другую часть программы или строки, содержащие ошибки, я закомментировал, так что ты можешь сравнить изначальную версию программы и исправленную.
Примечание: т.к мы инициализировали в начале программы p и присвоили значение 1, то необходимо учесть то, что в массиве может не оказаться ни одного элемента, который был бы кратен 5. Шанс очень мал, но он есть. Тогда p так и останется = 1 и программа выдаст ложный результат. Учти этот момент и пропиши необходимые условия.
Какие такие необходимые условия?
Давай подумаем, а может ли p = 1 при том условии, что у нас есть хотя бы один элемент, который кратен 5? Конечно нет. Так вот, необходимо сделать проверку: if (p = 1) then write('Не обнаружено ни одного элемента кратного 5!', #10) else write(#10, 'Произведение элементов массива кратных 5 = ', p);
Также необходимо обговорить тот момент, что p всё же может оказаться равным 0. Это произойдёт если сгенерируется хотя бы один элемент с нулевым значением. Тогда у нас выполнится условие (0 mod 5 = 0) и p станет равным 0.
Если мы хотим избежать этого случая, то необходимо исключить генерацию элементов с нулевым значением. Хотя свойство делимости определено на всём множестве целых чисел, обычно рассматривается лишь делимость натуральных чисел. Так что, я думаю это будет логичным решением.
Я попытался написать всё подробно и понятно, но если возникнут вопросы, ты всегда можешь их задать.
![Скажите почему в этом коде на Pascal ответ равен 0 var a:array[1..10] of integer; i,p:integer; begin](/tpl/images/1783/1983/9180b.jpg)
--- Python 3.7 ---
def MatrixRead(Rows, RowLength, ContType):
for row in range(Rows):
print('Enter line ' + str(row))
buff = []
[buff.append(ContType(input())) for _ in range(RowLength)]
yield buff
def MatrixSwap(Matrix, OldPos:tuple, NewPos: tuple):
Matrix[OldPos[0]][OldPos[1]], Matrix[OldPos[1]][OldPos[0]] = Matrix[NewPos[1]][NewPos[0]], Matrix[NewPos[0]][NewPos[1]]
return Matrix
def MatrixPrint(Matrix, end = '\n'):
for Row in Matrix:
print(*Row, end ='\n')
print(end)
def main():
N = int(input()) #Matrix Size
Matr =list( MatrixRead(N, N, int))
MatrixPrint(Matr) #For check
for row in range(N):
for col in range(N):
SecDiagPos = (row, N-col-1)
MainDiagPos = (row, col)
Matr = MatrixSwap(Matr, MainDiagPos, SecDiagPos)
MatrixPrint(Matr)
if __name__ == '__main__':
main()
Объяснение:
