Известны данные о температуре воздуха в течение августа. Определите максимальную температуру в августе. Данные придумать самому. Сделать в паскале

program mas_max_temp_avg;

const n=31;

var

a:array[1..n]of integer;

i,m:integer;

begin

for i:=1 to n do

begin

a[i]:=random(30)+5;

writeln(i,' день》',a[i],'°');

//или этот оператор//read(a[i]);

end;

writeln('Ищем максимальную температуру...');

m:=a[1];

for i:=1 to n do

if a[i]>m then

m:=a[i];

writeln('Жарко было ');

for i:=1 to n do

if a[i]=m then

write(i,'-го ');

writeln;

write(' числа')

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.