нужен ответ с дано и решением

1.

var
i,n,s:integer;
a:array [1..100] of integer;  
begin
write('Введите количество элементов массива: ');
readln(n);
s:=0;
for i:=1 to n do
begin
  readln(a[i]);
  s:=s+a[i];
end;
writeln('Сумма элементов массива = ',s);
end.

2.

var
i,n,k:integer;
a:array [1..10] of real;  
begin
k:=0;
for i:=1 to 10 do
begin
  readln(a[i]);
  if a[i]>0 then k:=k+1;
end;
writeln('Количество положительных элементов массива = ',k);
end.

3.

var
i,n:integer;
a:array [1..100] of integer;  
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
  readln(a[i]);
if a[1]>0 then writeln('Раньше встречается положительное число')
          else writeln('Раньше встречается отрицательное число')
end.

4.

var
i,n:integer;
a:array [1..100] of integer;  
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
  readln(a[i]);
for i:=1 to n do if a[i]<0 then write(i,' ');
end.

1) 

Пользуемся вот этой формулой: I = hit, где

I  объем файла,

h - частота дискретизации, h=40кГц = 40 000 Гц

i - минимальное количество бит, i=16

t - длительность звучания файла в секундах, t=3мин = 180с

I = 115200000 бит = 115200000/8 байт = 14400000 байт = 1440000/1024 кБайт = 14062,5 кБайт

2)

Пользуемся теперь этими формулами

I = ki

, где

I - объем изображения,

k - количество пикселей, k = 100*300=30000

i - минимальное количество бит, нужное для кодирования одного пикселя

N - палитра цветов, N = 16384

В какую степень надо возвести 2, чтобы получилось 16384?

Значит, по формуле i = 14

I = 30000*14=420000 бит = 420000/8 байт = 52500 байт = 52500/1024 Кбайт = 51,27 Кбайт