Те, в которых не используется абсолютная адресация по отношению как к номеру столбца, так и номеру строки.
2 а а другое не знаю сори бро
Uses crt;
var a,b,c : real;
// это стороны треугольника
begin
readln(a);
readln(b);
readln(c);
//ввод
if (a=b) or (a=c) or (b=c) then writeln('треугольник равнобедренный');
if (a=b) and (a=c) then writeln ('равносторонний');
end.
<em>// PascalABC.NET 3.2, сборка 1334 от 12.11.2016</em>
begin
var n:=ReadInteger('n=');
var a:=SeqRandom(n,-20,20).Select(e->real(e)).ToArray;
a.Println;
var b:=a.Where(x->x=0).Concat(a.Where(x->x<0)).ToArray;
a:=b.Concat(a.Where(x->x>0)).ToArray;
a.Println;
end.
Пример
n= 20
-16 1 16 -11 20 -6 -11 15 0 -9 -14 0 4 -4 2 14 19 7 -14 4
0 0 -16 -11 -6 -11 -9 -14 -4 -14 1 16 20 15 4 2 14 19 7 4