Люди, , найти значения минимального элемента одномерного целочисленного массива, сформированного пользователем, и его индекс. внимание, предусмотреть ситуацию нескольких элементов с минимальным значением. в этом случае вывести на экран все индексы. паскаль.

varmas: array[1..10] of integer; i,min: integer; beginmin: =maxint; for i: =1 to 10 dobeginreadln (mas[i]); if (mas[i]< min) then min: =mas[i]; end; writeln ('минимальный элемент массива =',min); for i: =1 to 10 doif (mas[i]=min) then writeln ('индекс минимального элемента: ',i); end.

Эти в сути своей примитивны и одинаковы. надо только напрочь выкинуть из головы формулы, которые многих отпугивают, и включить мозг, чтобы немножко порассуждать. 1. нам нужно найти информационный объём текста в а пока неважно в чем! объем всего текста. информационным объемом в этом предмете (так принято) на самом деле называют не объем, как в , а количество. некое количество места, которое займет эта информация, если ее попытаться хранить. чтобы узнать, сколько места займет некая информация, достаточно знать, сколько места займет некая частичка этой информации и это значение умножить на количество таких частичек. как с коробкой конфет. если одна конфета имеет объем 3 см³, а конфет в коробке 20, то все конфеты займут 3×20 = 60 см³. у нас вместо конфет - символы алфавит, а вместо коробки - составленный из них текст. в строке 64 символа, а строк на странице 32. значит, страница содержит 64×32 = 2048 символов. одна страница. но текст занимает не одну страницу, а восемь.следовательно, всего в тексте будет 2048×8 = 16 384 символа. что мы сейчас нашли? а мы нашли информационный объем текста! только в символах. пришло время посмотреть, а в чем надо его найти, чтобы дать ответ на . 2. информационный объем от нас хотят в килобайтах. не страшно, сейчас разберемся. в информатике измеряют объем информации в специальных единицах - битах и байтах. 1 бит - это мельчайшая единица информации. как атом в или . есть единицы покрупнее. 8 бит образуют 1 байт. еще есть килобайт, т.е. единица, к которой этих байт вроде бы "кило", т.е. привычная 1000. ан нет! у компьютеров все не как у людей, они в двоичной системе работают, а 1000 - это число, которое не кратно степени двойки и поэтому "плохое". а какое кратное (т.е. "хорошее") и похожее на 1000? два в десятой степени, т.е. 1024. это и есть "кило" в информатике. итак, 1 кбайт = 1024 байта. вот в этих килобайтах нам и нужен объем. как перейти от количества символов к этим самым килобайтам? довольно просто. определим, сколько килобайт (байт, бит - как получится) занимает один символ и умножим на количество символов. нам известно, что в алфавите 32 символа, т.е. каждый символ кодируется одной из 32 возможных комбинаций. и вот тут самый трудный момент в этой . чтобы закодировать 32 комбинации, достаточно 5-разрядного двоичного кода. т.е. будут комбинации 00000, 00001, 00010, 11111. как узнали? , что 32 = 2⁵, показатель степени у двойки и есть искомое значение. все! 5 двоичных разрядов - это 5 бит. это и есть информационный вес одного символа. а их в тексте 16384. 16384×5 = 81920 бит. осталось в килобайты перевести, а соотношения мы выше написали. 81920 бит = 81920/8 = 10240 байт = 10240/1024 = 10 кбайт. и последнее. чтобы подчеркнуть, что в килобайте 1024 байта, а не 1000 и не путать с единицами системы си, в килобайтах букву "к" всегда пишут большой (заглавной). ответ: 10 кбайт.

Var infile, outfile: text; // вводной и выводной файлы var a,b,c, d, result  : integer; assign(infile, "c: \kvur.txt"); assign(outfile, "c: \korni.txt") reset(infile) read(infile,a) read(infile,b) read(infile, c) d = sqr(b) + 4*a*c if d = 0 then write("уравнение не имеет корней") else   append(outfile)   result: =(-b + sqrt(d)) / 2 * a   write(outfile,result)   write("корень уравнения")   writeln(result)   if (d> 0) then     result: =(-b - sqrt(d)) / 2 * a     write(outfile, result)     write("второй корень уравнения")     write(result)   end; end.