Заполните двумерный массив размерностью 3*2 случайными числами в диапазоне от -30 до 50. определите квадрат минимального элемента.

Program sss; var i,j,n: integer; a: array[1..2,1..3] of integer; begin n : = 51; for i: =1 to 2 do begin for j: =1 to 3 do begin   a[i,j] : = random(-30,50);   write(a[i,j],' ');   if a[i,j] < n then n : = a[i,j]; end; writeln; end; write(n*n); end.

Program triangle; var max,a,b,c,s: integer; begin readln(a,b,c); max: =a;   if b > max then begin    max: =b;   s: =a+c;     if s > max then writeln('мoжно')      else      writeln('нельзя');       end;     if c > max then begin    max: =c;     s: =a+b;       if s > max then writeln('мoжно')        else      writeln('нельзя');       end      else      s: =c+b;       if s > max then writeln('мoжно')        else    writeln('нельзя'); end.

Uses crt; const max=100; var a: array [1..max] of real;     i,n: integer; begin clrscr; write('zadajte razmernost massiva'); readln(n); writeln('ishodnij massiv: '); for i: =1 to n do    begin    a[i]: =random(100);       write(a[i]: 7: 2);     end; writeln; writeln('novij massiv: '); for i: =1 to n do    begin    if (i mod 2)< > 0 then a[i]: =sqrt(a[i]);     write(a[i]: 7: 2);     end;     end.