#include <iostream>
using namespace std;
int main()
{
int X[10];
long int sum = 0, prod = 1;
int k = 0;
for (int i = 0; i < 10; i++)
{
cout << "X[" << i << "] = ";
cin >> X[i];
if (X[i] < 0) sum += X[i];
if (X[i] != 0) prod *= X[i];
if (X[i] > 0) k++;
}
cout << "Сумма отрицательных = " << sum << endl;
cout << "Количество положительных = " << k << endl;
cout << "Произведение ненулевых = " << prod << endl;
//system("pause");
return 0;
}
Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 30.0 c
A = D * i * t * c = 16000 * 4 * 30.0 * 2 = 3840000.0 бит = 468.75 Kбайт = 0.457763671875 Мбайт
Я думаю что ответом на н.1 будут варианты А.
На вопрос н.2 ответом является вариант З,Г.
Вариант А самый безопасный для разговора.
Варианты З и Г используются везде. (Ну почти везде.)
Да,числа : 3,10,17,24,31,38,45,52,59,66,73,80,87,94
P.S. Pascal ABC
var a:integer;
begin
for a:=1 to 100 do
begin
if (a mod 7 =3)then writeln(a);
end;
<span>end.</span>
Const Sz = 100; // Размер массива
var
b,a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k, i: integer;
begin
k:=0;
N := 20;
writeln ('chisla');
for i:=1 to N do begin
a[i] := Random(60)-30;
write (a[i],' ');
end;
writeln;
writeln ('---------------------------------------------');
for i:=1 to n do begin
if ((a[i]<=5) and (a[i]>0)) then
begin
k:=k+1;
write (i,' ');
end;
end;
if (k=0) then
write('no');
end.
