Const n=10;
var a:array[1..n] of integer;
s,sr,i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
for i := 1 to n do begin
s:=s+a[i];
sr:=s/n;
end;
for i := 1 to n do
if a[i]>15 then a[i]:=sr;
writeln('noviy=');
for i :=1 to n do
write(a[i]:4);
readln;
end.
Ответ:
ПЗУ с параллельным доступом преимущество скорость доступа
Объяснение:
Такой вид списка называется <span>Раскрывающийся</span>
1)1536 Кбайт в 1.5 Мбайтах.
1 Мбайт=1024кбайтам
2)120байт=960битам.
1 байт = 8 битам
3) Байт, Кбайт, Мбайт, Гбайт, Тбайт.
Program func;
const
H = 0.2;
var
i, y, sum: real;
function Func(x:real):real;
begin
Func := x * Cos( (2 * x) );
end;
begin
i := -1;
sum := 0;
while i<=1 do
begin
y := Func(i);
if y>0 then
sum := sum + y;
i := i + H;
end;
end.