var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.
ОЗУ,Оперативная память,<span>часть</span> памяти, в которой во время работы компьютера хранится код программы
Uses crt;
Var m:array[1..1000] of integer;
I,sr,n:integer;
Begin
Clrscr;
Writeln('Введите размер массива');
Readln(n);
For i:=1 to n do
Begin
m[i]:=random(30)+1;
Write(m[i],' ');
Sr:=sr+m[i];
End;
Writeln;
Writeln(' Сред. Арф. = ',sr div n);
Readkey;
End.
Решение смотри во вложении.
<span>Kaspersky Antivirus, Norton AntiVirus, Doctor Web.
</span><span>Своевременное обнаружение зараженных вирусами файлов и дисков, полное уничтожение обнаруженных вирусов на каждом компьютере позволяют избежать распространения вирусной эпидемии на другие компьютеры.
</span>Для обнаружения, удаления и защиты от компьютерных вирусов разработано несколько видов специальных программ, которые позволяют обнаруживать и уничтожать вирусы. Такие программы называются антивирусными<span>. Различают следующие виды </span><span>антивирусных программ</span>