Const n1 = 20; var a: array[1..n1, 1..n1] of integer; i, j, n, k, m: integer; s: real; begin write('введите число строк (cтолбцов) массива: '); readln(n); randomize; writeln('исходный массив'); m : = 0; for i : = 1 to n do begin for j : = 1 to n do begin k : = random(101) - 50; a[i, j] : = k; write(k: 4); end; writeln; m : = m + a[i, i] end; k : = 0; s : = m / n; for i : = 1 to n do for j : = 1 to n do if a[i, j] > s then k : = k + 1; writeln('среднее значение элементов главной диагонали равно ', s); writeln('количество элементов, значения которых больше этой величины - ', k) end. тестовое решение: введите число строк (cтолбцов) массива: 10 исходный массив 29 22 23 15 -23 -25 19 9 -8 -16 1 15 2 35 27 -44 -10 -34 19 50 -35 -31 15 -24 24 -11 -49 -46 40 20 16 48 16 -49 -22 -2 -37 -38 -25 9 36 44 6 23 -16 -27 -40 22 20 29 30 -12 45 32 19 10 -44 -4 41 38 -27 14 20 23 19 4 50 0 7 -21 43 -23 42 -40 -36 -29 13 43 42 0 -21 -20 -15 -40 41 -23 -47 34 -17 19 -9 18 -29 -13 -15 -29 -27 34 -46 31 среднее значение элементов главной диагонали равно 11.1 количество элементов, значения которых больше этой величины - 45
Vera-zero281
01.07.2022
1) а) на java class example{ public static void main (string[] args){ int k = 0, j = 0; for (int i = 0; i < 10; i++){ k = k + 5; j = j + k; if (i == 9) system.out.print(k); else system.out.print(k + " + "); } system.out.print(" = " + j); } } б) на pascal var a,b,c: integer; begin for a: =1 to 10 do begin b: =b+5; c: =c+b; if (a = 10) then write(b) else write(b, ' + ') end; write(' = ', c); end. 2) а) на java class example{ public static void main(string args[]){ for (int x = 50; x > = 40; { double y = (5 * x) + (math.pow(x, 2)); int i = (int) y; system.out.println(i); } } } б) на pascal var y: real; x: integer; begin for x: =50 downto 40 do begin y: =(5*x)+sqr(x); writeln(y: 0: 0); end; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
5. какие, по вашему мнению, основные преимущества компьютер-ных словарей перед обычными словарями в форме печатныхкниг?