var a: array[0..6] of array [0..7] of Integer; i,j: integer; Count,Pr: integer; begin Count:=0; Pr:=1; for I := 0 to 6 do begin for J := 0 to 7 do Read(a[i,j]); Readln(); end;
for I := 0 to 6 do for J := 0 to 7 do begin if a[i,j]>0 then begin Inc(Count); Pr:=Pr*a[i,j]; end; end;
if Count=0 then Pr:=0;
Writeln('Количество чисел a[i,j]>0 = ',Count); Writeln('Произведение чисел a[i,j]>0 = ',Pr); Readln(); end.
Безопасное пользование Интернетом. Дети в Интернете: кто предупреждён, тот вооружен. ... Человек, с которым происходит общение, в значительной степени определяет, насколькобезопасной и приятной для васявляется атмосфера в чате. Как правило, степень безопасности чата, в котором общается ваш ребенок, можно определить по трем основным вопросам. 1. Предназначен ли чат для детей?
Безопасный интернет детям. Согласно Российскому законодательству информационная безопасность детей – это состояние защищенности детей, при котором отсутствует риск, связанный с причинением информацией, в том числе распространяемой в сети Интернет, вреда их здоровью, физическому, психическому, духовному и нравственному развитию (Федеральный закон от 29.12.2010 № 436-ФЗ "О защите детей от информации, причиняющей вред их здоровью и развитию"). ... Для детей и молодежи Интернет главным образом является социальной средой, в которой можно не только встречаться с друзьями, но и с незнакомцами. ВИнтернете пользователя могут обидеть, запугать или даже оскорбить. Лучшей защитой является руководство собственным здравым смыслом.
По моему мнению это ответ в