працює без помилок і правильно. потрібно зробити перевірку на кратність як функцію. Як? Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 program bred; uses SysUtils, Windows; const MaxN = 3; type MyAr = array [1..MaxN, 1..MaxN] of integer; // Вводимо матрицю. procedure inputmas (var A: MyAr); var i, j: integer; begin writeln ( 'Введіть матрицю порядку -', MaxN); for i: = 1 to MaxN do for j: = 1 to MaxN do read (a [i, j]); end; // Перевіряємо рядки на парність. function parity (var A: MyAr; k. integer): boolean; var r. integer; begin parity: = true; for r: = 1 to MaxN do if odd (A [k, r]) then parity: = false; end; // Оголошуємо змінні. var s, i, x: integer; A: MyAr; begin // Підключаємо російську кодування. setconsolecp (1251); setconsoleoutputcp (одна тисяча двісті п'ятьдесят одна); // Виклик процедури. inputmas (a); // Вводимо Х. Write ( 'Введіть Х'); Readln (x); // Знаходимо кількість рядків з усіма непарними елементами. s: = 0; for i: = 1 to MaxN do if not parity (A, i) then s: = s + 1; //Для краси. writeln ( 'Кількість рядків тільки з непарними елементами =', s); // Перевірка на кратність і висновок. if s mod x = 0 then writeln ( 'Кількість рядків кратно X') else writeln ( 'Кількість рядків некратними Х'); readln end.Добавлено через 1 годину 17 хвилин ніхто не допоможе.
Визначте номера рядків в матриці, в яких елементів, що належать відрізку [a, b] більше, ніж елементів не прінадлежащіх.Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 type Tmas = array [1..3,1..3] of real; var a: tmas; b, c: real; i, k, n, j: integer; Procedure InputMatrix (Var x: tmas); var i, j: integer; Begin For i: = 1 to 3 do For j: = 1 to 3 do Read (x [i, j]); ReadLn; End; function bred (var z: integer): boolean; var i: integer; begin for i: = 1 to 3 do if (a [z, i]> = b) and (a [z, i] k then bred: = false else bred: = true; end; begin readln (b); readln (c); inputmatrix (a); for j: = 1 to 3 do if bred (j) then writeln (j); readln end.запускается, але не функціонує належним чином + лається компілятор: [Попередження] Project2.dpr (36): FOR-Loop variable 'j' can not be passed as var parameter [Підказка] Project2.dpr (13): Variable 'i' is declared but never used in 'Project2' в чому помилки? Додано через 1 годину 3 хвилини спасибі всім. знайшов помилку в функції не обнулені лічильники n: = 0; k: = 0 перед циклом.
Чи не працює програма або їй не відповідає опис. Повідомте будь ласка нам про це, заповнивши просту форму. Спасибо =) Зробити сайт краще