20) Ответ:34
П.с. Если нужны пути смотри фотку
Сорян братан, но 21 лень
Program n1;
uses crt;
const nn=1000;
var
i,j,n,k:integer;
m: array[1..nn,1..nn] of integer;
begin
randomize;
writeln('Введите размерность массива'); readln(n);
for i:=1 to n do
for j:=1 to n do m[i,j]:=random(100)-50;
for i:=1 to n do begin
for j:=1 to n do write(m[i,j]:4,' ');
writeln; end;
for i:=1 to n do
for j:=1 to n do
if (i=j) and (m[i,j]>0) then k:=k+1;
writeln(k);
<span>end.</span>
РЁВ
В Паскале можно декодировать посредством функции chrunicode().
1 нужно 48=4+8=12
1991=1+9+9+1=20
182=1+8+2=11
25431=2+5+4+3+1=15
2 нужно если число одно как например 1 7 значит ставится цифра 1 если 10 цифра 2 если 183 цифр 3 1996 цифр 4
ДАЛЬШЕ НЕЗНАЮ СОРИ