Пусть дана произвольная целочисленная матрица порядка 10. Определите, имеются ли среди элементов, расположенных выше
главной диагонали такие, которые превосходят любой из элементов,
расположенных ниже главной диагонали. Укажите индексы этих элементов. На C#

program til91946;

const n = 20;

type mas = array [1..n] of integer;

var a, b, c, d: mas;

   i: integer;

begin

writeln('В столбцы A, B, C введите любые 20 чисел. Из произведения чисел столбцов A и C в столбце D сделайте вычитание чисел столбцов B, C.');

writeln;

randomize;

writeln('A B C D');

for i := 1 to n do

begin

 a[i] := random(201) - 150;

 b[i] := random(201) - 150;

 c[i] := random(201) - 150;

 d[i] := a[i] * c[i] - c[i] - b[i];

 writeln(a[i], ' ', b[i], ' ', c[i], ' ', d[i]);

end;

readln;

end.

1) var

a, b, c, S, P : real;

begin

write('Введите катет a : ');readln(a);

write('Введите катет b : ');readln(b);

c := sqrt(sqr(a)+sqr(b));

P := a + b + c;

S := (a*b)/2;

writeln('Периметр равен : ', P);

writeln('Площадь равна : ', S);

readln;

end.

2) program choice_2;

uses crt;

var year: integer;

begin

clrscr;

write(‘Ваш возраст > ‘); readln(year);

if (year > 0) and (year < 18) then

write(‘Вы не достигли совершеннолетия’)

else if (year > 17) and (year < 150) then

write(‘Вы достигли совершеннолетия’)

else write(‘Вероятно, введены неверные данные’);

readkey;

end.

3) uses crt;

Var n,m,p,k:integer;

Begin

write('n=');read(n);

m:=n;k:=0;

while m<>0 do begin

p:=m mod 10;

K:=K+1;

m:=m div 10;

end;

writeln('k=',k);

end.