//Pascal
//1)
var
A: array [1..20] of integer;
i, j, k: integer;
begin
randomize;
writeln('***Сгенерированный массив***');
for i := 1 to 20 do
begin
A[i] := random(200)+100;
write(A[i]:4);
end;
for i := 1 to 20-1 do
for j := 1 to 20-i do
if A[j] > A[j+1] then
begin
k := A[j];
A[j] := A[j+1];
A[j+1] := k;
end;
writeln;
writeln('***Массив после сортировки***');
for i := 1 to 20 do
write(A[i]:4);
readln;
end.
//2)
var
A: array [1..10, 1..10] of integer;
i, j, k, N, M, buf: integer;
begin
randomize;
writeln(' ***Сгенерированный массив***');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
A[i, j] := random(51);
write(A[i, j]:4);
end;
writeln;
end;
write('Введите номер столбца для сортировки: ');
readln(M);
for j:=m to m do
begin
for k:=1 to 10 do
for i := 10 downto k+1 do
if A[i-1,j]>A[i,j] then
begin
buf:=A[i,j];
A[i,j]:=A[i-1,j];
A[i-1,j]:=buf;
end;
end;
writeln;
writeln(' ***Массив после сортировки***');
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(A[i, j]:4);
writeln;
end;
write('Введите номер строки для сортировки: ');
readln(N);
for i:=n to n do
for j:=1 to 10-1 do
for k:=j+1 to 10 do
if A[i,j]>A[i,k] then
begin
buf:=a[i,j];
A[i,j]:=A[i,k];
A[i,k]:=buf;
end;
writeln;
writeln(' ***Массив после сортировки***');
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(A[i, j]:4);
writeln;
end;
readln;
end.
23 символа умножаешь на 8 битов
Получается 23*8=182 бита или 23 байта. (Один символ=1 байт=8 битов)
Ксерокс относится к средствам копирования и размножения документов — (4)
В мултимедии есть аудио фото видео а видео это запись тоесть в мултимедии хранятся фаилы а видео запись
поскольку условие Или, то должно выполняться хотя бы одно условие
запись 1: пол Ч, Фізика < Біологія (68 < 70) - подходит
запись 2: пол Ч, Фізика = Біологія (69 = 69 ) - не подходит
запись 3: пол Ж, Фізика < Біологія (73 < 74) - подходит
запись 4: пол Ч, Фізика > Біологія (81 > 80 ) - не подходит
запись 5: пол Ж , Фізика > Біологія (79 > 75 ) - подходит
запись 6: пол Ж, Фізика < Біологія (66 < 70) - подходит
Ответ: 4 записи