А как вы представляете себе ответ на ваш вопрос?
var a: array [1..100,1..100] of integer;
b:array [1..100] of integer;
n,m,i,j:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do
read(a[i,j]);
for i:= 1 to n do begin
b[i]:=0;
for j:= 1 to m do
b[i]:=b[i]+a[i,j];
writeln('b[',i,'] = ',b[i]);
end;
End.
Вот ответ: 1+2+3+4:5+6-7=1
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
Ответ:
Может быть опасный вирус.
Способы защиты: установить антивирус и сразу же обновлять операционную систему а не ждать полвека.
Могут тебя хакнуть.
Способы защиты: не говорить свой пароль любым знакомым даже лучшим друзьям. А также ставить надежные пароли а не 1 2 3 4 а например 8 5 6 7
Могут вычислить твой IP и доставать тебя в реальной жизни.
Способы защиты: поставить турбо VPN
Могут вычислить твой пин-код и снять все твои деньги
Способы защиты: не говорить свой пароль любым знакомым даже собственным родителям!!!!!!!!!!!!!!!!!!!!!
Обдурить тебя сказочкой Вы выиграли миллион доларов
Способы защиты: Удалять весь спам.