7. Что производит следующий фрагмент программы?
K:=0;
FOR I:=1 TO N DO
IF A[I]<0 THEN K:=K+1;
WRITELN(K=`,K);
a. Находит максимальный и минимальный элементы и печатает на экране
b. Находит максимальный элемент и печатает на экране
c. Находит минимальный элемент и печатает на экране
d. Находит сумму отрицательных элементов и печатает на экране
e. Находит количество отрицательных элементов и печатает на экране

Если брать в расчет документ с расширением .txt, то в таком документе хранится только текст, без всяких заголовков, кодировок и т.п. Например, для хранения текста "Привет, мир" потребуется всего 11 байт, по числу символов этого текста. Файлы типа .doc хранят уже заголовок документа, его свойства, список используемых стилей, шрифты, которые есть в документе. Причем, для каждой записи используется структура, очень похожая на файл, а сам документ похож на маленькую файловую систему. Рисунки хранят информацию о каждой цветной точке (пикселе), о её яркости. Т.к. рисунки бывают большие по размеру, то и хранить нужно много информации. Например, рисунок 600х800 при глубине цвета в 24 бита требует для хранения 11520000 бит или 1,4 мегабайта информации. Звуковые файлы также хранят очень много информации.

Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.