Объяснение:
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-накопителях или (раньше) на дискетах.
m = 4;
var i,j,k: integer;
a: array [1..n,1..m] of integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
for i:=1 to n do
for j:=i+1 to m do
begin
k:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=k;
end;
writeln;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
end.