Дана вещественная квадратная матрица а порядка n. найти среднее арифметическое среди положительных элементов матрицы, находящихся на главной и побочной диагоналях. выдать сообщение, если таких элементов нет.
Var ans: real; n, i, j, kol: integer; a: array of array of real; begin read(n); setlength(a, n+1); for i : = 1 to n do setlength(a[i], n+1); for i: = 1 to n do for j : = 1 to n do read(a[i][j]); for i : = 1 to n do if (a[i][i] > 0) then begin inc(kol); ans : = ans + a[i][i]; end; if (kol > 0) then begin writeln('ср. ар. с гл. диагонали = ', ans / kol); kol : = 0; ans : = 0; end else writeln('элементов > 0 на гл. диагонали - нет ! '); for i : = 1 to n do if (a[i][n-i+1] > 0) then begin inc(kol); ans : = ans + a[i][n-i+1]; end; if (kol > 0) then writeln('ср. ар. с поб. диагонали = ', ans / kol) else writeln('элементов > 0 на поб. диагонали - нет ! '); end.
Yurevich1701
13.04.2021
1) сначала нужно посчитать количество всех символов: 560*62*47=1631840 2) дальше надо вычислить размер всей книги, а для этого умножить количество всех символов на размер одного символа, то есть 1631840*2байта=3263680байт 3) переводим размер одной дискеты в байты: 1.44 мбайт= 1474,56байт 4) делим объём всей книги на объём одной дискеты: 3263680/1474,56=2213,3246528 так как у нас получилось не целое число, нам надо округлить это число до целого и взять на одну дискету больше, чтобы поместилась вся книга, то есть ответ 2214 дискет. проверь, , правильность написания тобой данной , я имею ввиду единицы измерения, потому что один символ редко весит 2 байта. ну а если всё написано правильно, то смело пиши ответ 2214 дискет. удачи!
Likhomanova63
13.04.2021
Word excel access power point outlook frontpage photo draw publisher small business tools internet explorer. кроме основных приложений microsoft office содержит также множество программ, используемых для создания и включения в, базовые документы различных объектов в виде диаграмм, рисунков, формул и т. д. к ним относятся: ms graph ms equation editor ms office art ms word art ms photo editor ms clip gallery ms organization chart