М... заморила твоя задача однако Program asd; USES crt; var A:array [1..5] of integer; min,max,min2,o,p:real; i,n:integer;
Procedure max1; begin for i:=1 to 5 do if A[i]>0 then if min<A[i] then min:=A[i]; Writeln('Min: ',min); end; Procedure min1; begin for i:=1 to 5 do if A[i]<0 then if min>A[i] then min:=A[i]; Writeln('Min: ',min); end; BEGIN clrscr; For i:=1 to 5 do begin A[i]:=random(9)-5; Write(' ',A[i]); end; Writeln; //Otrizanie For i:=1 to 5 do if A[i]<0 then o:=o+A[i]; Writeln('Summa otrizatelnyx elementov: ',o); //Polowitelnye For i:=1 to 5 do if A[i]>0 then p:=p+A[i]; Writeln('Summa polowitelnyx elementov: ',p); if p<o then max1 else min1; END.
Безопасный интернет - это... Интернет, стал неотъемлемой частью нашей жизни. Мы используем его разными Для некоторых он служит средством добычи информации. Для других средством развлечений. И некоторые говорят, «с Интернетом стало легче и удобней жить».С одной стороны это весьма неплохо, но если задуматься, то он может доставить кучу проблем. С которыми лучше не сталкиваться. В интернете много всего нецензурного, порнографии и мошенничества, а также выплывающие окна, которые содержат информацию подталкивающие к самоубийству, отказу от приема пищи, убийствам. При этом эти окна появляются независимо от желания пользователя. Контакты с нежелательными людьми с чатов или электронной почты, игровые сайты, но вред интернета заключается, в первую очередь, в зависимости от него, которая превращается в болезнь.Лично я, хочу, чтобы интернет стал безопасным, так как я ученица 7 класса, и часто использую интернет для своих целей (проверить почту, найти реферат, скачать что-нибудь).Со мной не раз случалось такое, что через интернет на мой компьютер проникали вирусы; это было не очень хорошо. Кроме того, злоумышленники один раз вторглись на мой персональный компьютер (ПК). И сделали они это или через электронную почту, или через программы взятые из сети Интернет.Однажды сидя в социальной сети. Вконтакте, которая так распространена среди молодого поколения. Мне пришло сообщение от подруг там было написано «пройди по ссылке, иначе я обижусь» я нажала «пройти» после чего на экране всплыло окно с отправить смс после чего должен был прийти код, которое нужно было вести, чтобы пройти по ссылке. После всего этого с моего лицевого счета было снято триста (300) рублей. Поэтому чтобы Интернет стал безопасным надо просто четко знать, какую информацию вам нужно найти, что важно для вас, а не пытаться открывать прикрепленные к письму файлы, которые приходят вам по электронной почте из неизвестных источников, не запускать программы, в которых вы сомневаетесь.Также верным безопасного Интернета являются антишпионские программы защитить компьютер от всплывающих окон, снижения производительности, угроз безопасности, вызванных программами-шпионами и другими «доброжелательными» программами, которые выполняют определённые действия без нашего ведома, например, показывающие рекламу или отслеживающие личные данные. Всё это – наша безопасность. Для наилучшей защиты правительству нужно создавать различные организации, занимающиеся охраной интернета и которые обезопасить информационное пространство интернета, тем самым защитить нас и наше детство. Надеюсь, что наше поколение, постарается входить в этот мир компьютера и Интернета с широким шагом и внимательностью.
Program asd;
USES crt;
var
A:array [1..5] of integer;
min,max,min2,o,p:real;
i,n:integer;
Procedure max1;
begin
for i:=1 to 5 do
if A[i]>0 then
if min<A[i] then
min:=A[i];
Writeln('Min: ',min);
end;
Procedure min1;
begin
for i:=1 to 5 do
if A[i]<0 then
if min>A[i] then
min:=A[i];
Writeln('Min: ',min);
end;
BEGIN
clrscr;
For i:=1 to 5 do
begin
A[i]:=random(9)-5;
Write(' ',A[i]);
end;
Writeln;
//Otrizanie
For i:=1 to 5 do
if A[i]<0 then o:=o+A[i];
Writeln('Summa otrizatelnyx elementov: ',o);
//Polowitelnye
For i:=1 to 5 do
if A[i]>0 then p:=p+A[i];
Writeln('Summa polowitelnyx elementov: ',p);
if p<o then max1
else min1;
END.
Интернет, стал неотъемлемой частью нашей жизни. Мы используем его разными Для некоторых он служит средством добычи информации. Для других средством развлечений. И некоторые говорят, «с Интернетом стало легче и удобней жить».С одной стороны это весьма неплохо, но если задуматься, то он может доставить кучу проблем. С которыми лучше не сталкиваться. В интернете много всего нецензурного, порнографии и мошенничества, а также выплывающие окна, которые содержат информацию подталкивающие к самоубийству, отказу от приема пищи, убийствам. При этом эти окна появляются независимо от желания пользователя. Контакты с нежелательными людьми с чатов или электронной почты, игровые сайты, но вред интернета заключается, в первую очередь, в зависимости от него, которая превращается в болезнь.Лично я, хочу, чтобы интернет стал безопасным, так как я ученица 7 класса, и часто использую интернет для своих целей (проверить почту, найти реферат, скачать что-нибудь).Со мной не раз случалось такое, что через интернет на мой компьютер проникали вирусы; это было не очень хорошо. Кроме того, злоумышленники один раз вторглись на мой персональный компьютер (ПК). И сделали они это или через электронную почту, или через программы взятые из сети Интернет.Однажды сидя в социальной сети. Вконтакте, которая так распространена среди молодого поколения. Мне пришло сообщение от подруг там было написано «пройди по ссылке, иначе я обижусь» я нажала «пройти» после чего на экране всплыло окно с отправить смс после чего должен был прийти код, которое нужно было вести, чтобы пройти по ссылке. После всего этого с моего лицевого счета было снято триста (300) рублей. Поэтому чтобы Интернет стал безопасным надо просто четко знать, какую информацию вам нужно найти, что важно для вас, а не пытаться открывать прикрепленные к письму файлы, которые приходят вам по электронной почте из неизвестных источников, не запускать программы, в которых вы сомневаетесь.Также верным безопасного Интернета являются антишпионские программы защитить компьютер от всплывающих окон, снижения производительности, угроз безопасности, вызванных программами-шпионами и другими «доброжелательными» программами, которые выполняют определённые действия без нашего ведома, например, показывающие рекламу или отслеживающие личные данные. Всё это – наша безопасность. Для наилучшей защиты правительству нужно создавать различные организации, занимающиеся охраной интернета и которые обезопасить информационное пространство интернета, тем самым защитить нас и наше детство. Надеюсь, что наше поколение, постарается входить в этот мир компьютера и Интернета с широким шагом и внимательностью.