Объяснение:
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var A:array[1..100] of integer;
i,j,k,n:byte;
b:boolean;
Begin
write('Введите размерность: ');readln(n);
k:=0;
For i:=1 to n do
Begin
A[i]:=random(30)-15;
write(A[i]:4);
End;
For i:=1 to n do
Begin
b:=true;
For j:=i+1 to n do
if A[i]=A[j] then b:=false;
if b then inc(k);
End;
writeln;
if k>0 then writeln('Различных чисел: ',k) else writeln('Различных чисел нету');
readln;
End.
1)
Носители информации- это любое устройство предназначенное для записи и хранения информации. Например: бумажные, звуконосители, видеоносители, магнитные носители, оптические носители, перфорированные носители.
Объяснение:
2)
Компью́терный ви́рус — вид вредоносных программ внедряться в код других программ, системные области памяти, загрузочные секторы и распространять свои копии по разнообразным каналам связи. Основная цель вируса — его распространение. Я знаю причины заражения вируса. Например: Компьютерные вирусы получили свое название за «заражать» множество файлов на компьютере. Они распространяются и на другие машины, когда зараженные файлы отправляются по электронной почте или переносятся пользователями на физических носителях, например, на USB-накопителях или (раньше) на дискетах.
Поделитесь своими знаниями, ответьте на вопрос:
Чем отличается команды сохранить и сохранить как
Сохранить как - сохранить с изменениями(сменить название, сменить расширение файла(текстовый файл-программа)).