<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк/столбцов в массиве:');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var (K,L):=ReadInteger2('Укажите номера столбца и строки:');
var e:=a[L-1,K-1];
Writeln('S=',a.ElementsByRow.Where(t->t<e).Sum)
end.
<u>Пример</u>
Количество строк/столбцов в массиве: 7
79 9 98 -38 -9 -64 -69
90 -67 -76 -53 -83 -43 70
85 27 37 51 -75 9 98
-74 -39 -33 34 30 -61 -46
-81 59 -19 -40 3 -21 -71
-41 -21 18 -9 -2 25 -88
34 -84 -73 46 -14 -75 -37
----------------------------
Укажите номера столбца и строки: 5 2
S=-172
Так и называется если не правельно то прости пожалуйста если что загугли в инете
Символы, набранные с использованием кодировки Unicode, кодируются 16 битами каждый. Таким образом, указанный текст будет весить 224 бита или 0,028 килобайт.
var x, S: longint; t:text;
begin
assign(t,'input.txt');
reset(t);
S:=0;
while not Eof(t) do
begin
read(t,x);
S:=S+x;
end;
close(t);
assign (t,'output.txt');
rewrite(t);
write(t,'Вот сумма числел из файла input.txt: ', S);
close(t);
End.
