Объяснение:
1) Var
m: array [1..10, 1..10] of integer;
i,j,c:integer;
Begin
For i:=1 to 4 do
For j:=1 to 8 do
read(m[i,j]);
For i:=1 to 4 do
For j:=1 to 8 do
Begin
m[i,j]:=m[i,j]*m[i,j];
end;
For i:=1 to 4 do
Begin
For j:=1 to 8 do
write(m[i,j],' ');
writeln
end;
end.
2)Var
m: array [1..10, 1..10] of integer;
i,j,c:integer;
Begin
For i:=1 to 6 do
For j:=1 to 5 do
read(m[i,j]);
For i:=1 to 6 do
For j:=1 to 5 do
Begin
m[i,j]:=-1*m[i,j];
end;
For i:=1 to 6 do
Begin
For j:=1 to 5 do
write(m[i,j],' ');
writeln
end;
end.
1) Тут смотря по содержанию писем. Если с угрозами - агрессия, если простой спам или вымогательство/по мошенничество
2) Если ссылка надежная (ведет, например, на ютюб или от вашего хорошего знакомого) и если коррупция подается в негативном свете, то тут ничего такого вообще нет, хотя может быть мошенничество - не переходите по непонятным ссылкам от незнакомцев!
3) Это мошенничество и по Есть более надежные тяжело больным детям
4) Это мошенничество чистой воды. В таком случае немедленно блокируйте аккаунт или удаляйте его, ну, или хоть поменяйте пароль на пипецки сложный и немедленно свяжитесь с друзьями, которые получили угрозы и объясните ситуацию
Будьте осторожными в Интернете!
For i :=1 to N do
begin
if a[i] < 2016 then k+=1
else break;
end;
print(k);