<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Println(' ^~^ ');
Println('(`:'')');
Println('<###>');
Println(' / \ ');
Println('= = ')
end.
<h2>Можно Println заменить на Writeln</h2>
Называют ссылкой,
например, А2, С4
А В С... заголовки столбцов
1 2 3 ... заголовки строк
const m = 100;
<span>var i,n,s,mx: integer;
</span><span> a: array[1..m] of integer;
</span><span>begin
</span><span> write('размер массива: '); readln(n);
</span><span> randomize;
</span><span> s:=0; mx:= -12;
</span><span> writeln('исходный массив: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(-11,34);
</span><span> write(a[i],' ');
</span><span> if (a[i]<0) and (a[i]>mx) then mx:=a[i];
</span><span> if ((a[i]>0) and (a[i] mod 2 = 1)) then s:=s+a[i];
</span><span> end;
</span><span> writeln;
</span><span> writeln('максимальный среди отрицательных: ',mx);
</span><span> writeln('сумма нечетных положительных: ',s);
</span><span>end.
</span>размер массива: 15
<span>исходный массив:
</span><span>17 -10 17 0 5 2 26 9 27 8 21 19 18 5 21
</span><span>максимальный среди отрицательных: -10
</span><span>сумма нечетных положительных: 141
</span><span>
</span>
Разные разрешения (форматы)
Чтобы найти число разрядов числа находишь логарифм по основанию 10 от данного числа, обрезаешь целую часть и прибавляешь единицу.
trunc(log10(a)+1)
У трёхзначных чисел это значение будет равно трём.