<span>months = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec);
years = 1900..2100;
people = array[years] of longint;
var
growth: array[months] of real;
hum: people;
notes: array[1..n] of string;</span>
Uses crt;
const n=5;
var
s:array[1..n] of string;
i,j,c:integer;
ss:string;
begin
writeln('Введите :');
for i:=1 to n do begin
write('s[',i,']=');
readln(s[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if s[i]>s[j] then
begin
ss:=s[i];
s[i]:=s[j];
s[j]:=ss;
end;
for i:=1 to n do
writeln(i,'.',s[i],' ');
<span>end.</span>
К постоянным, так как это постоянное число π (пи).
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow;
Writeln('Сумма элементов массива ',s.Sum);
Writeln('Произведение отрицательных элементов ',
s.Where(t->t<0).Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Количество положительных элементов ',
s.Where(t->t>0).Count)
end.