Можите подсказать какая оценка будет в году, если 1 четв --3, 2 чет --4, 3 чет --4, 4 чет --3. в 2019 г. нужно. только отвечайте не на обум у меня средний решается.

ответ:

должно быть 3 , но учитель может дать дополнительную роботу чтобы исправить некоторые оценки

Var   a,i: integer;   m: real; begin   randomize;   m: =0;   write('получены числа: ');   for i: =1 to 3 do   begin       a: =random(10);       write(a,' ');       m: =m+a   end;   writeln;   m: =m/3;   writeln('их среднее арифметическое равно ',m: 0: 3) end. тестовое решение: получены числа: 5 3 3 их среднее арифметическое равно 3.667 var   n: integer; begin   write('введите целое число: '); read(n);   writeln(n-1,', ',n,', ',n+1) end. тестовое решение: введите целое число: 35 34, 35, 36

{заполнить двумерный массив n x n случайными числами из интервала [-10 ; 10],  выяснить что больше сумма элементов лежащих над главной диагональю или  под главной диагональю.}const nmax = 20; var a: array[1..nmax,1..nmax] of integer; n,m,i,j,sumn,sumv: integer; beginwrite('введите число n'); readln(n); for i: =1 to n do beginfor j: =1 to n do beginm: = random(20)-10; a[i,j]: = m; write(a[i,j]: 4); end; writeln; end; writeln; writeln; for i: =1 to n do beginfor j: =1 to n do beginif i> j then begin write(a[i,j]: 4); sumn: = sumn + a[i,j]; end; end; writeln; end; writeln; writeln; for i: =1 to n do beginfor j: =1 to n do beginif i < j then begin write(a[i,j]: 4); sumv: = sumv + a[i,j]; end; end; writeln; end; if sumn > sumv then write('cумма элементов лежащих под главной диагональю больше')else write('cумма элементов лежащих над главной диагональю больше'); end.