Определите максимальное время прохождения 100- метровой дистанции 12 спортсменов , если время каждого вводится с клавиатуры( информатика)

Если нужно написать программу на паскале, то вот:

program stometrov;

var i:integer; t,x:real;

begin

 x:=0;

 for i:=1 to 12 do

 begin

   writeln('Введите время участника №', i);

   readln(t);

   if t>x then

     x:=t;

 end;

 writeln('Максимальное время прохождения 100-метровой дистанции: ',x);

end.

//задача 1program _sqrt;var ar:array[1..100] of integer;i:integer;Res:real;beginfor i:=1 to 100 do ar[i]:=i;for i:=1 to 100 do if ar[i] mod 2=0 then res:=res+ar[i];res:=sqrt(res);write(res);end.
//задача 2. 100 элементов слишком много для произведенияprogram _sqrt;var ar:array[1..10] of integer;i:integer;res:int64;beginres:=1;for i:=1 to 10 dobeginar[i]:=i;res:=res*sqr(ar[i]);end;write(res);end.
//задача 3program _sqrt;var ar:array[1..100] of integer;i:integer;res:int64;beginfor i:=1 to 100 dobeginar[i]:=i;if ar[i] mod 2=1 then res:=res+ar[i];end;write(res);end.

16 бит

Объяснение:

I = t * f * i * k, где

I - информационный объём аудио файла (размер файла, содержащего запись звука)

t - длительность звучания (секунды)

f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)

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

k - количество каналов записи (1 - моно, 2 - стерео и т.д.)

Дано:

t = 2 мин = 120 сек

I = 5,1 Мбайт = 42781900,8 бит

f = 22 050 Гц

k = 1

Найти:

i

I = t * f * i * k

i = I / (t * f * k)

i = 42781900,8 / (120 * 22 050 * 1) = 42781900,8 / 2646000 ≈ 16 бит

1 мин = 60 сек

1 байт = 8 бит

1 Кбайт = 1 024 байт

1 Мбайт = 1 024 Кбайт