Скиньте 1 , 2 и соч суммативку за 4 четверть 6 класс по информатике, желательно с ответами 40 .​

Var mas : array [1..100,1..100] of integer;   n,m,i,j,summa: integer; begin  write('введите количество строк n='); readln(n);   write('введите количество столбцов m='); readln(m);   for i: =1 to n do    for j: =1 to m do    mas[i,j]: =random(99);         writeln('исходная матрица');   for i: =1 to n do    begin    for j: =1 to m do      write(mas[i,j]: 2,' ');     writeln;     end;       summa: =0;   for i: =1 to n do    for j: =1 to m do    summa: =summa+mas[i,j];         write('сумма=', summa); end.

Var mas_in, mas_out : array [1..100,1..100] of integer;   n,m,i,j: integer; begin  write('введите количество строк n='); readln(n);   write('введите количество столбцов m='); readln(m);   for i: =1 to n do    for j: =1 to m do    mas_in[i,j]: =random(99);     //mas_in[i,j]: =i*(j+i);         writeln('исходная матрица');   for i: =1 to n do    begin    for j: =1 to m do      write(mas_in[i,j]: 2,' ');     writeln;     end;         for i: =1 to n do    begin    for j: =1 to m do      mas_out[i,j]: =mas_in[i,m-j+1];     end;       writeln('конечная матрица');   for i: =1 to n do    begin    for j: =1 to m do      write(mas_out[i,j]: 2,' ');     writeln;     end; end.