<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
WriteAllText('out.txt',
ReadAllText('in.txt').ToIntegers.Take(10).Where(t->t>=5).Sum.ToString)
end.
<u>Примечание: если чисел гарантировано 10, то .Take(10) можно убрать</u>
uses crt;
var
a:array [1..100,1..100] of real;
n,m,k:integer;
begin
clrscr;
randomize;
write('N='); read(n);
write('M='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100)-50;
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:= 1 to n do
begin
k:=0;
for m:= 1 to m do
begin
if a[n,m]<0 then
k:=k+1;
end;
writeln('К<span>ол-во отрицательных элементов '</span><span>,n</span><span>,</span><span>' строки: '</span>,k);
end;
end.
Закономерность количества символов:
1)1
2)3
3)7
4)15
5)15*2+1=31
6)31*2+1=63
7)63*2+1=127
Так как каждом действии концовка наших символов с 4 строки не сильно-то и изменяется, то присваиваем каждой букве число справа налево счтитая от 127 до 120
<span>7)............DCBAABA A C B A A B A A </span>
<span> 20 21 22 23 24 25 26 27 </span>
<span>Ответ: ACBA</span>
Ответ:
Совокупность знаков, с помощью которых записываются числа называется: B