1.Учитель составляет характеристику на ученика - сбор информации
2.Обработка информации по принципу "черного списка" - процесс, в котором пользователю важна и необходима лишь входная и выходная информация,
3.Когда ребенка переводят в школу интернат где школьная информация упрощается
4.Когда надо что то соврать создаётся информация
5.При прочтении книги или стиха информация запоминаеться.
6.В математических переводах 1 килобайт = 1Кб = 210 байт = 1024 байта. информация изменяется
7.При выдилении и перемещении файлов с USB Носителя на компьютер файлы копируются и при этом файлы на Носителе остались.
8.Когда фотографию или файл загружаеш на сайт то информация передаётся
9.Когда скачиваеш интересный фильм на компьютер то информация принимается
10. Например ты загружал файлы с сайтов на твой комп загрузился вирус и информация в винчестере удалилась - разрушение.
11.Когда Один текст нужно разделить на 5 глав главные и второстипенные.
12.Когда Пишите контрольную работу и учитель не смотрит на вас вы заходите в поисковик и вбиваете вопрос
Программа:
Pascal:
№2)
var
m: array[1..10] of integer;
begin
m[1]:=4; m[2]:=8; m[3]:=7; m[4]:=2; m[5]:=1; m[6]:=8; m[7]:=1; m[8]:=5; m[9]:=6; m[10]:=8;
for var i := 1 to 10 do
if m[i] = m.max then m[i]:= 0;
writeln(m);
end.
№3)
const n = 10;
var
a: array[1..n] of integer;
i, k, tmp: integer;
begin
for i := 1 to n do a[i] := random(0, 1);
writeln('Массив: ', a);
for i := 1 to n - 1 do
for k := 1 to n - i do
if a[k] > a[k + 1] then begin
tmp := a[k];
a[k] := a[k + 1];
a[k + 1] := tmp;
end;
writeln(a);
end.
№5)
const n = 10;
var
a: array[1..n] of integer;
a1, a2: array[1..n div 2] of integer;
i, k, tmp: integer;
begin
for i := 1 to n do a[i] := random(-10, 10);
writeln('Исходный массив: ',a);
for i := 1 to n div 2 do a1[i] := a[i];
for i := (n div 2 + 1) to n do a2[i - n div 2] := a[i];
for i := 1 to n div 2 - 1 do
for k := 1 to n div 2 - i do
if a1[k] > a1[k + 1] then begin
tmp := a1[k];
a1[k] := a1[k + 1];
a1[k + 1] := tmp;
end;
for i := 1 to n div 2 - 1 do
for k := 1 to n div 2 - i do
if a2[k] < a2[k + 1] then begin
tmp := a2[k];
a2[k] := a2[k + 1];
a2[k + 1] := tmp;
end;
for i := 1 to n do
if i <= 5 then a[i] := a1[i]
else a[i] := a2[i - n div 2];
writeln('Выходной массив: ', a);
end.
Поделитесь своими знаниями, ответьте на вопрос:
1)какое из перечисленных ниже устройств является устройством вывода компьютер? сканер, клавиатура, мышь и принтер 2)во время исполнения программа храится : в видеопамяти, в оперативной памяти, на жестком диске или в пзу
2)на жестком диске или в пзу