Незнакомый человек оставил комментарий на ютуб. Владелец канала под которым был этот комментарий его удалил. Как найти этот удаленный комент? Не говорите что это невозможно, тк это уже некоторым удавалось сделать.
Если вы не владелец канала, то скорее всего, уже никак. Только у владельцев канала есть возможность просматривать все комментарии, но я не уверен что и удаленные тоже. Делается это через Творческую студию Ютуба, можете зайти в в неё и выбрать Комментарии, и там все будет.
var a:array[1..15] of integer; i,sum,pr,k:integer; begin sum:=0; pr:=1; k:=0; for i:=1 to 15 do begin a[i]:=random(201)-100; writeln('a[',i,']=',a[i]); if i mod 2 = 0 then sum:=sum+a[i]; if a[i]<0 then pr:=pr*a[i]; if a[i] mod 2 <> 0 then k:=k+1; end; writeln('Summa elementov s chetnimi nomerami = ',sum); writeln('Proizvedenie otritsatelnih elementov = ', pr); writeln('Kol-vo nechetnih elementov = ',k); end.
Второе
var a:array[1..5] of integer; b:array[1..5] of integer; i:integer; begin writeln('Zapolnite massiv'); for i:=1 to 5 do begin read(a[i]); if a[i]<0 then b[i]:=abs(a[i]); if a[i]>0 then b[i]:=sqr(a[i]); if a[i]=0 then b[i]:=a[i]; end; writeln; for i:=1 to 5 do writeln('a[',i,']=',a[i]); writeln; for i:=1 to 5 do writeln('b[',i,']=',b[i]); end.
Третье
var a:array[1..5] of integer; b:array[1..5] of integer; ibuf,i,max,q:integer; begin max:=0; writeln('Zapolnite massiv'); writeln; for i:=1 to 5 do begin readln(a[i]); if a[i]>max then max:=a[i]; end; for i:=1 to 5 do if a[i]=max then ibuf:=i; for i:=1 to 5 do b[i]:=a[i]; b[ibuf]:=a[1]; b[1]:=max; writeln; for i:=1 to 5 do writeln('a[',i,']=',a[i]); writeln; for i:=1 to 5 do writeln('b[',i,']=',b[i]); end.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println; var se:=a.Where((x,i)->i.IsOdd).Sum; var pn:=a.Where(x->x<0).Aggregate(BigInteger(1),(p,q)->p*q); var ko:=a.Where(x->x.IsOdd).Count; Writeln('Сумма элементов с четными номерами: ',se); Writeln('Произведение отрицательных элементов: ',pn); Writeln('Количество нечетных элементов: ',ko) end.
Пример n= 17 7 -60 -7 -96 -14 97 7 -68 -89 -87 -50 49 77 -52 -36 -15 99 Сумма элементов с четными номерами: -232 Произведение отрицательных элементов: -417286023598080000 Количество нечетных элементов: 10
begin var a:=ReadArrInteger('Вводите:',ReadInteger('n=')); a.Println; a.Transform(x->x<0?abs(x):x>0?x*x:x); a.Println end.
Если вы не владелец канала, то скорее всего, уже никак. Только у владельцев канала есть возможность просматривать все комментарии, но я не уверен что и удаленные тоже. Делается это через Творческую студию Ютуба, можете зайти в в неё и выбрать Комментарии, и там все будет.
Объяснение: