Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами - Turbo Pascal
Формулировка задачи:
Задача: Дан массив 4х4 из целых чисел. Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами. Написать две программы-решения с подпрограммами и без.
Помогите пожалуйста
Код к задаче: «Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами - Turbo Pascal»
const n = 4; var x: array [1..n, 1..n] of integer; i, j: byte; a, s: integer; begin Randomize; Writeln('Матрица:'); for i := 1 to n do begin for j := 1 to n do begin x[i, j] := Random(11) - 5; Write(x[i, j]:4); end; Writeln end; Write('Введите A: '); Readln(a); for i := 1 to n do for j := 1 to n do if (Odd(j)) and (x[i, j] = a) then s := s + x[i, j]; Writeln('Сумма = ', s); Readln end.
10 голосов, оценка 3.600 из 5
СОХРАНИТЬ ССЫЛКУ