1.Найти значение n5, число n вводит пользователь. var

n,i,rez:integer;

begin

readln(n);

rez:=1;

for i:=1 to 5 do

rez:=rez*n;

writeln(rez);

end.

2. Найти значение 2n. Число n – степень 2, вводит пользователь.

[V] Информационный объём = 625 Кбайт = 625 · 10³ бит

[i] Глубина кодирования = 16 бит

[D] Частота дискретизации = 32 КГц = 32 · 10³ Гц

[t]

V = D · t · i · k ⇒ t = V / (D · i · k) = 625 / (32 · 16 · 2) = 0.6 секунды

800 · 600 = 480000 пикселей на экране,

480000 · 4 = 1920000 пикселей на четырех страницах,

1920000 · 24 = 46080000 бит для хранения цвета = 5,76 Мбайт.

800 · 600 = 480000 пикселей на экране,

480000 · 24 = 11520000 бит для хранения цвета,

так как за 1 секунду меняется 30 кадров, а у нас 60 секунд, то

11520000 · 60 · 30 = 20736000000 бит = 2.6 Гбайт.

program number1;

var a: array [1..5] of integer;

i,min,max: integer;

Begin

writeln('Введите 5 значений массива');

for i:=1 to 5 do

readln(a[i]);

min:=a[1];

max:=a[1];

for i:=1 to 5 do

Begin

if (a[i]>=max) then max:=a[i];

if (a[i]<=min) then min:=a[i];

End;

for i:=1 to 5 do

Begin

if max=a[i] then

Begin

 writeln('Максимальное значение: ',a[i],' [',i,']');

 max:=a[i];

End;

if min=a[i] then  

 Begin

 writeln('Минимальное значение: ',a[i],' [',i,']');

 min:=a[i];

 End;

End;

writeln('Среднее арифметическое: ',(min+max)/2);

End.