Uses crt; var i_put,o_put: string; i,s_ch,n: byte; flag: boolean; begin clrscr; writeln('vvedite stroku: '); readln(i_put); flag: =true; while flag do begin flag: =false; s_ch: =pos(' ',i_put); if s_ch< > 0 then begin delete(i_put,s_ch,1); flag: =true; end; end; n: =length(i_put); o_put[0]: =i_put[0]; for i: =1 to n do o_put[i]: =i_put[n+1-i]; if (i_put=o_put) then writeln('yes') else writeln('no'); readkey; end. надо переводить на с#

var

i, j, n, min_r, max_r, max_a, min_a:integer;

a:array [1..10000, 1..10000] of integer;

begin

randomize;

writeln('Введите размер матрицы N x N:');

readln(n);

writeln('Введите минимальное значение генерации эл. массива:');

readln(min_r);

writeln('Введите максимальное значение генерации эл. массива');

readln(max_r);

writeln();

for i:=1 to n do

for j:=1 to n do

a[i, j]:=random(max_r, min_r);

writeln('Сгенерированная матрица:');

for i:=1 to n do

begin

for j:=1 to n do

write(a[i, j]:3, ' ');

writeln();

end;

writeln();

max_a:=a[1, 1];

for i:=1 to n do

for j:=1 to n do

if (i<j) and (max_a<a[i, j]) then

max_a:=a[i, j];

min_a:=a[n, 1];

for i:=1 to n do

for j:=1 to n do

if (i+j>n+1) and (min_a>a[i, j]) then

min_a:=a[i, j];

writeln('Максимальный элемент среди элементов матрицы расположенных выше главной диагонали: ', max_a);

writeln('Минимальный элемент среди элементов матрицы расположенных ниже побочной диагонали: ', min_a);

writeln('Сумма: ', max_a+min_a);

end.

Действительно, не нужно вычислять площадь. В первом мы не будем вычислять площадь, но во втором, будь по Вашему, мы вычислим площадь через функцию вычисления площади по Герону.
1)var a,b,c,ma:real;
begin
read(a,b,c);
ma:=max(max(a,b),c);
if a=ma then write(1,' ');
if b=ma then write(2,' ');
if c=ma then write(3,' ');
end.
2)var a,b,c,pa,pb,pc,ma:real;

function geron(aa,bb,cc:real):real;
begin
pa:=sqrt((3*a)*(2*a)*(2*a)*(2*a));
pb:=sqrt((3*b)*(2*b)*(2*b)*(2*b));
pc:=sqrt((3*c)*(2*c)*(2*c)*(2*c));
end;

begin
read(a,b,c);
geron(a,b,c);
ma:=max(max(pa,pb),pc);
if pa=ma then write(1,' ');
if pb=ma then write(2,' ');
if pc=ma then write(3,' ');
end.