var
a:array[1..100] of integer;
povt,i,j,elem:integer;
begin
povt:=0;
randomize;
for i:=1 to 100 do
a[i]:=random(1001);
for j:=1 to 100 do
povt:=0;
begin
for i:=1 to 100 do
if a[i]=a[j] then
begin
elem:=a[i];
povt:=povt+1;
end;
povt:=povt-1;
write('Число= '+elem+ ' Количество повторений= '+ povt);
end;
Var A :array [1..20] of integer ; i:integer;
begin
for i :=1 to 20 do
begin
a[i]:=random(-10,30);
write(a[i],'...');
end;
end.
Объем изображения I=k*i*n , где k- количество точек, i- глубина цвета, n - количество слайдов
Глубина цвета i=㏒₂N, где N-количество цветов палитры
i=㏒₂256=8
I=1024*512*8*10/(8*1024*1024)= 5 Мбайт
Объем звука:
I= i*n*t, где i-глубина кодирования звука, n- частота дискретизации, t- время звучания.
I= 16*32000*40/(8*1024*1024)= 2,44 Мбайт
Общий объем слайд-шоу: 5 Мбайт+2,44 Мбайт= 7,44 Мбайт
Прибавляем сюда еще 10 Кбайт служебной информации.
Объем флешки: 2 Гбайт= 2048 Мбайт
Свободное место 10%= 204,8 Мбайт
Слайд-шоу уместится на флешку
Решение задачи показано в прилагаемом файле.
1) с = 2 + 12 = 14
2) с = 1 + 14 = 15
3) с = 1