Напишите программу в паскале вычисление среднего арифметического значения последовательности дробных чисел. количество чисел задается во время работы программы.
Var N,i : Integer; a,s : Real; Begin Write('Количество чисел: '); Readln(N); s:=0; For i:=1 to N do Begin Write('Введите число №',i,' : ');Readln(a); s:=s+a; end; Writeln('Ср.арифм. = ',s/N:8:4); end.
1. Компьютерный вирус - это вредоносная программа, которая воспроизводить себя через компьютер или через компьютерные сети. Компьютер может заразиться вирусом через флешку, электронную почту или программы для обмена сообщениями.
2. Флешка, диск, интернет.
3. Уменьшение объема свободной оперативной памяти; замедление загрузки и работы компьютера; непонятные (без причин) изменения в файлах, а также изменения размеров и даты последней модификации файлов; ошибки при загрузке операционной системы; непонятные системные сообщения, музыкальные и визуальные эффекты и т.д.
4. Потеря программ, данных, стирание информации в системных файлах, выход из строя движущихся частей жесткого диска, уменьшение объёма памяти, зависание компьютера, и многое другое.
5. Не заходить на незнакомые сайты; регулярно проверять компьютер на наличие вирусов(использовать антивирус), не запускать незнакомые файлы.
6. Антивирус - это программа для обнаружения компьютерных вирусов. Виды антивирусов: сканеры, блокираторы, иммунизаторы.
a,s : Real;
Begin
Write('Количество чисел: '); Readln(N);
s:=0;
For i:=1 to N do
Begin
Write('Введите число №',i,' : ');Readln(a);
s:=s+a;
end;
Writeln('Ср.арифм. = ',s/N:8:4);
end.