program jfe3;
const n=10; {Это будет кол-во элементов массива}
var a:array [1..n] of integer; i,s:integer;
begin
for i:=1 to n do begin
a[i]:=random(100); {элемент выбирается случайно от 0 до 100}
s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}
end;
for i:=1 to n do
writeln(a[i],' '); {показать сам массив}
writeln(s); {показать сумму}
readln; {чтобы окно сразу не закрывалось}
end.
Если есть вопросы по программе, пиши в личку. Если надо что-то еще - тоже =)
Удачи)
Var
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.
Это обонятельная информация
так как говорится про запах, а нос это орган обоняния
Так как частота дискретизации 16 кГц, то за одну секунду запоминается 16000 значений сигнала.
Разрешение – 32 бита = 4 байта, размер файла 1Мб = 1048576 байт. Время записи определяются следующим образом:
t = 1048576 / (16000 * 4) = 16,38 секунд, что близко к 10 секундам.
Ответ: 1)