Например: в школе, это электронные доски, на которых выводится информация для учеников(в современных школах)
коммуникация, в роле сотовых телефонов и т.п. помогает оставатся на связи в трудном положении
Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.
Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.
Не имеет смысла только первое высказывание
Самое первое правило безапасности в сети интернет - это,конечно,осторожность. Не переходить по всплывающим ссылкам,по неизвестным сайтам. Как говорится: волков бояться-в лес не ходить.
Второе,как я думаю - это включенная защита антивируса от спама. Там так же могут быть и вредоносные вирусы и материалы порнографической информации.
Третье- это проверенные источники.
И в общем,я думаю, если быть осторожным и внимательным - сеть интернет,будет очень полезным.
