Паскаль: одномерные массивы. N учеников класса выполняют прыжки в длину. Разработайте алгоритм и программу для определения того, сколько учеников прыгнули дальше установленный норматив с.

Вводные данные: N=6
4.7; 3.8; 3.3; 3.6; 3.1; 3.9;
с = 3.5

1.

const nn=50;
var
a:array [1..nn,1..nn] of integer;
i,j,k,l,n:integer;
begin
writeln('N= ');
readln(n);
for i:=1 to n do
  for j:= 1 to n do
    readln(a[i,j]);
 writeln;
 writeln('Сформированный массив:');
 for i:=1 to n do
 begin
  for j:= 1 to n do
    write(a[i,j],' ');   
  writeln;
end;
writeln;
writeln('Индексы равных элементов:');
for i:=1 to n do
    for j:= 1 to n do
      for k:=i+1 to n do
        for l:= j to n do
        if (a[i,j] = a[k,l]) then writeln('[',i,',',j,'] = [' ,k,',',l,']');
end.

2. Недостаточно данных для решения задачи.

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 Кбайт