Дана непустая последовательность различных натуральных чисел, за которой следует 0. определить порядковый номер наименьшего из них. разделитель между числами – символ по усмотрению исполнителя. в программе бэйсик

Uses crt; var a ,mn ,n ,imn : integer; begin clrscr; writeln ( 'введите натуральные числа, окончание ввода 0: ' ); repeat readln (mn ); until mn> 0; n : = 1; imn : = 1; repeat   repeat   readln (a );   until a> = 0;   n : =n + 1;   if (a< > 0 ) and (a< mn ) then   begin     mn : =a;     imn : =n;   end; until a = 0; write ( 'минимальное из чисел, не считая 0=' ,   mn , ' его номер=' ,imn ); readln end.

дано:

g= 44,1 кгц=44100 гц

t= 1 мин=60 сек

v= 15 мбайт

i-?

 

решение:

i=v/g*t

i= (15*8*1024*1024 бит)/(44100гц*60сек)= 48 бит

 

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)