Массив создается и заполняется рандомными числами до 10
var
massive: array[1..20] of Integer;
i:Integer ;
summ:integer;
begin
WriteLn('все элементы');
for i:=1 to 20 do
begin
massive[i]:=Random(100);
write(massive[i],', ');
end;
for i:=1 to 20 do
begin
if massive[i] mod 5 = 0 then
summ:=summ+massive[i];
end;
writeln('сумма: ',summ);
end.
Var ar:array of integer;
z,i,n,o:integer;
begin;
o:=0;
readln(n);
readln(z);
setlength(ar,n+1);
for i:=1 to n do
begin;
readln(ar[i]);
if ar[i]>z then
begin;
inc(o);
ar[i]:=z;
end;
end;
writeln('Array:');
for i:=1 to n do
write(ar[i]:4);
writeln;
writeln('Количество замен=',o);
end.
1)32*64*56=114688-символов.
2)114688*8=917504 бит=112 Кбайт.
Всё выполняется по формуле A = D * i * t * c, где
(D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
F= 4* 32*2^10*32*2*60 = 2^2 * 2^5 * 2^10 *2^5 *2^3 *15 = 2^25 *15 бит = 2^2 * 15 Мбайт ≈ 60 Мбайт
Ответ ≈ 60 Мбайт
<span>Writeln(B); - команда вывода, затем новая строка
</span>Write(B); - команда вывода