Следовательно, эта дробь правильная
Практически во всех операционных системах имя файла составляется из двух частей, разделенных точкой. Например:myprog.pas
Слева от точки находится собственно имя файла (ту-prog). Следующая за точкой часть имени называется расширением файла (pas). Обычно в именах файлов употребляются латинские буквы и цифры. В большинстве ОС максимальная длина расширения - 3 символа. Кроме того, имя файла может и не иметь расширения. В операционной системе Windows в именах файлов допускается использование русских букв; максимальная длина имени - 255 символов.Расширение указывает, какого рода информация хранится в данном файле. Например, расширение txt обычно обозначает текстовый файл (содержит текст); расширение рсх - графический файл (содержит рисунок), zip или гаг - архивный файл (содержит архив - сжатую информацию), pas - программу на языке Паскаль.
<span>Файлы, содержащие выполнимые компьютерные программы, имеют расширения ехе или com.
Удачи!</span>
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(49,-50,50); a.Println;
Writeln('Сумма равна ',a.Sum);
if not a.Any(t->t=0) then Writeln('Произведение равно ',
a.Aggregate(BigInteger(1),(p,q)->p*q))
end.
<u>Пример</u>
-26 -4 -2 -12 -38 -3 3 -12 -22 -30 -41 -38 34 20 34 -7 -10 -34 16 -1 -20 -17 49 -48 50 -37 -30 25 -42 -24 16 7 -27 2 8 44 -31 42 39 -29 -4 21 19 41 -34 -9 -4 48 47
Сумма равна -71
Произведение равно -5875206582842929080605341032818854321985176247205888000000000
Var
n,m,i,j,k1,k2: integer;
a: array[1..100,1..100] of integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then inc(k1) else inc(k2);
for i:=1 to n do
for j:=1 to n do
if (k1>k2) and (a[i,j]>0) then writeln(a[i,j]) else
if (k1<k2) and (a[i,j]<0) then writeln(a[i,j])
<span>end.</span>