6.3)
7. 1)
8.-
9. 1)
10. 1)
<span>from random import randint
n = int(input('Размер массива: '))
a = [randint(-15, 15) for i in range(n)]
print('Исходный массив:', *a)
b = [i for i in a if i % 2 == 0 and i > 0]
if len(b) == 0:
print('Нет четных положительных элементов')
else:
print('Максимальный из четных положительных =', max(b), 'минимальный =', min(b))</span>
function IsOrtho(a: array[,] of integer): boolean;
begin
var n := a.RowCount - 1;
for var row1 := 0 to n do
for var row2 := 0 to n do
begin
var s := 0;
for var col := 0 to n do
s += a[row1, col] * a[row2, col];
if (row1 = row2) and (s <> 1) then
begin
IsOrtho := False;
Exit
end;
if (row1 <> row2) and (s <> 0) then
begin
IsOrtho := False;
Exit
end
end;
IsOrtho := True
end;
begin
var n := 5;
var a := ReadMatrInteger(n, n);
if IsOrtho(a) then
Println('Ортонормированная')
else
Println('Не ортонормированная')
end.
На pascalabc.net
частота дискретизации: D = А / Т / I
А - объем памяти (в байтах)
Т - время записи (в секундах)
I - разрядность звуковой платы (в байтах)
1,3 Мбайт = 1363148,8 байт
1 минута = 60 секунд
8 бит - 1 байт
найдем частоту дискретизации:
1363148,8 байт / 60 секунд / 1 байт = 22719,1 Гц
значит D = 22,05 кГц