(30 ! ): составить программу на языке паскаль для решения следующей : задать одномерный массив случайным образом, элементы которого принадлежат промежутку [-30; 40]; найти количество элементов массива, принадлежащих промежутку [-10; 25).
Const n = 3; var i,s:integer; a:array[1..n] of integer; begin s:=0; for i:=1 to n do begin a[i]:=random(71)-30; if (a[i]>=-10) and (a[i]<25) then s:=s+1; end; writeln('Полученный массив:'); for i:=1 to n do write('a[':4,i,']=',a[i]); writeln; write('Промежутку [-10;25) принадлежат ',s,' элемент(ов)'); end.
Безопасное пользование Интернетом. Дети в Интернете: кто предупреждён, тот вооружен. ... Человек, с которым происходит общение, в значительной степени определяет, насколькобезопасной и приятной для васявляется атмосфера в чате. Как правило, степень безопасности чата, в котором общается ваш ребенок, можно определить по трем основным вопросам. 1. Предназначен ли чат для детей?
Безопасный интернет детям. Согласно Российскому законодательству информационная безопасность детей – это состояние защищенности детей, при котором отсутствует риск, связанный с причинением информацией, в том числе распространяемой в сети Интернет, вреда их здоровью, физическому, психическому, духовному и нравственному развитию (Федеральный закон от 29.12.2010 № 436-ФЗ "О защите детей от информации, причиняющей вред их здоровью и развитию"). ... Для детей и молодежи Интернет главным образом является социальной средой, в которой можно не только встречаться с друзьями, но и с незнакомцами. ВИнтернете пользователя могут обидеть, запугать или даже оскорбить. Лучшей защитой является руководство собственным здравым смыслом.
//задача 1program _sqrt;var ar:array[1..100] of integer;i:integer;Res:real;beginfor i:=1 to 100 do ar[i]:=i;for i:=1 to 100 do if ar[i] mod 2=0 then res:=res+ar[i];res:=sqrt(res);write(res);end. //задача 2. 100 элементов слишком много для произведенияprogram _sqrt;var ar:array[1..10] of integer;i:integer;res:int64;beginres:=1;for i:=1 to 10 dobeginar[i]:=i;res:=res*sqr(ar[i]);end;write(res);end. //задача 3program _sqrt;var ar:array[1..100] of integer;i:integer;res:int64;beginfor i:=1 to 100 dobeginar[i]:=i;if ar[i] mod 2=1 then res:=res+ar[i];end;write(res);end.
n = 3;
var
i,s:integer;
a:array[1..n] of integer;
begin
s:=0;
for i:=1 to n do
begin
a[i]:=random(71)-30;
if (a[i]>=-10) and (a[i]<25) then s:=s+1;
end;
writeln('Полученный массив:');
for i:=1 to n do
write('a[':4,i,']=',a[i]);
writeln;
write('Промежутку [-10;25) принадлежат ',s,' элемент(ов)');
end.