Создать таблицу успеваемости в excel в редакторе excel создайте таблицу успеваемости, которая должна - id556936120210826 от 200005nikolll 26.08.2021 15:13

Question

Информатика: Создать таблицу успеваемости в excel в редакторе excel создайте таблицу успеваемости, которая должна содержать не менее 10 оценок 10 учеников. три оценки должны быть оценками за контрольные работы. вычислите тематические оценки. оценки за контрольные работы должны учитываться с коэффициентом 2. например, если у ученика оценки 5, 5, 4, 4. при этом последняя четверка – за контрольную работу, тематическая оценка считается так: 5+5+4+2*4/5=4.4≈4

200005nikolll · Accepted Answer

Const   n = 10;   m = 10; type   Matrix = array[1..n, 1..m] of integer; procedure EnterMas(var Mas: Matrix); var  i, j: integer; begin   randomize;   for i := 1 to n do     for j := 1 to m do       Mas[i, j] := random(100); end; procedure GiveMas(var Mas: Matrix); var  i, j: integer; begin   for i := 1 to n do   begin     for j := 1 to m do     begin       write(Mas[i, j], );     end;     writeln;   end; end; function SumStroki(Mas: Matrix; i, k: integer): integer; var   j, sum: integer; begin  ...

MOGZ ответил