Запишите на школьном алгоритмическом языке арифметическое выражение √a²+2b²​

sqrt(sqr(a)+2*sqr(b))

var  a : array [1..10] of longint;   i,j,max,ans : longint; begin  for i: =1 to 10 do      begin          max: =-maxlongint;           for j: =1 to 10 do              begin                  read(a[i]);                   if a[i]> max then max: =a[i];               end;           ans: =ans+max;           writeln;         end;   writeln(ans); end.

и этот массив не квадратный. такие массивы называют двумерными массивами.

Var       i, j, k: integer;       a, b: array [1..5] of array [1..5] of integer; begin       for i : = 1 to 5 do        for j : = 1 to 5 do read(a[i][j]);       k  : = 1;       for i : = 1 to 5 do             if (odd(i)) then                   for j : = 5 downto 1 do begin                         b[i][j] : = a[((k-1) div 5)+1][((k-1) mod 5)+1]; inc(k); end             else                    for j : = 1 to 5 do begin                         b[i][j] : = a[((k-1) div 5)+1][((k-1) mod 5)+1]; inc(k); end;         for i : = 1 to 5 do begin             for j : = 1 to 5 do write(b[i][j]: 2, ' ');             writeln; end; end.