USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
ReadLn(n);
m1:=n;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
if n1=n2 then if n1=n3 then writeln('vse =');
if n1=n2 then writeln('1 i 3 =');
if n2=n3 then writeln('2 i 3 =');
if n1=n3 then writeln('1 i 2 =')
else writeln('<>');
END.
Проверяйте, что непонятно - спрашивайте.
Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.
Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)
Всего хорошего.
нумерация элементов, а соответственно и строк в массиве начинается с 0
программа не проверяет введенные данные на корректность, то есть если ввести номер строки выходящий за рамки массива то будет ошибка.
так как не было указано где брать элементы массива то он заполняется случайными числами в диапозоне 0..100
var
n, k : integer;
a : real;
var d : array[,] of real;
begin
write('введите размер матрицы n=');
readln(n);
d := new real[n,n];
for var i := 0 to n-1 do begin
for var j := 0 to n-1 do d[i,j] := random(101);
end;
write('введите номер строки k=');
readln(k);
a := d[k,k];
for var i := 0 to n-1 do if d[k,k] <> 0 then d[k,i] := d[k,i]/a;
end.