Здравствуйте!Помогите пожалуйста с информатикой!Заранее великое спасибо!Необходимое

язык программирования обыденный британский? :))))

Да,звучит удивительно..(писала как-то такое же задание..попросили указать язык программирования)(не осведомлена с такими)Единственное,что знаю-пишутся на британском!Это умел в виду..

Языков программирования очень много Шанс, что кто-то угадает тот, что Для вас надо, невелик. Лучше бы Вы спросили...

Либо написали хотя бы первую строку из хоть какой программы на том самом "британском".

На данный момент в ходу языки Pascal, C/C++/C, BASIC, Python, Java, PHP, ...

При этом, у их еще и диалекты есть, обеспечивающие несовместимость.

В паскале надобно

программка типа:

var:a array[1..10,1..10]of integer;

можете посодействовать?!

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк (столбцов) в матрице:');
  Writeln('*** Начальная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var (su,sd,sl):=(0,0,0);
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do
      if ilt;j then su+=a[i,j]
      else
        if i=j then sd+=a[i,j]
        else sl+=a[i,j];
  Writeln('Суммы частей:');
  Writeln(' - верхней треугольной матрицы ',su);
  Writeln(' - основной диагонали ',sd);
  Writeln(' - нижней треугольной матрицы ',sl)
end.

Пример
Количество строк (столбцов) в матрице: 4
*** Начальная матрица ***
 -73 -89   4  39
  77 -32  23 -45
 -29 -70 -88 -40
 -83   9  21 -46
----------------
Суммы элементов:
 - верхней треугольной матрицы -108
 - основной диагонали -239
 - нижней треугольной матрицы -75

"Школьный" вариант

const
  nn=20; наибольший размер

var
  a:array[1..nn,1..nn] of integer;
  i,j,n:integer;
  su,sd,sl:longint;
 
begin
  Write('Количество строк (столбцов) в матрице:');
  Readln(n);
  Randomize;
  Writeln('*** Начальная матрица ***');
  su:=0; sd:=0; sl:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(199)-99;
      Write(a[i,j]:4);
      if ilt;j then su+=a[i,j]
      else
        if i=j then sd+=a[i,j]
        else sl+=a[i,j]
      end;
      Writeln
    end;
  Writeln('Суммыа частей:');
  Writeln(' - верхней треугольной матрицы ',su);
  Writeln(' - главной диагонали ',sd);
  Writeln(' - нижней треугольной матрицы ',sl)
end.

C++
-----------
include lt;iostreamgt;include lt;cstdlibgt;include lt;ctimegt;using namespace std;int main() srand(time(0)); int mas[5][5]; int sum=0,sum1=0,sum2=0; for(int i=0;ilt;5;i++) for(int j=0;jlt;5;j++) mas[i][j]=10+rand()%50; for(int i=0;ilt;5;i++) for(int j=0;jlt;5;j++) if(i==j)sum+=mas[i][j]; if(igt;j)sum1+=mas[i][j]; if(ilt;j)sum2+=mas[i][j]; for(int i=0;ilt;5;i++) for(int j=0;jlt;5;j++) coutlt;lt;mas[i][j]lt;lt;" "; coutlt;lt;endl; coutlt;lt;endl; coutlt;lt;sumlt;lt;" "lt;lt;sum1lt;lt;" "lt;lt;sum2lt;lt;endl; return 0;