Массив. в массиве хранятся севдения о количстве осадков(мм), ежедневно в сентябре.состовьте программу, которая подсчитывает количество дней (h[i]> 0) решить.
uses crt; var a[1..100] of integer; i,n,count:integer; BEGIN count:=0; read(n); for i:=1 to n do read(a[i]); if a[i]>0 then inc(count); write(count); END.
Var d:integer; const a=650; b=1; c=1000; begin write('Введите объём видеофайла в мегабайтах: '); readln(d); if d>a then write('Видеофайл не помещается на носитель информации"А"!',#10) else writeln('Памяти хватает для записи на носитель "А"! ',#10); if d>b then write('Видеофайл не помещается на носитель информации"B"!',#10) else writeln('Памяти хватает для записи на носитель "B"! ',#10); if d>c then write('Видеофайл не помещается на данный носитель информации"С"!',#10) else writeln('Памяти хватает для записи на носитель "C"! ',#10); readln; end.
Рабочим полем табличного процессора является экран дисплея, на котором электронная таблица представляется в виде прямоугольника, разделенного на строки и столбцы. Строки нумеруются сверху вниз. Столбцы обозначаются слева направо. На экране виден не весь документ, а только часть его. Документ в полном объеме хранится в оперативной памяти, а экран можно считать окном, через которое пользователь имеет возможность просматривать таблицу. Для работы с таблицей используется табличный курсор, — выделенный прямоугольник, который можно поместить в ту или иную клетку. Минимальным элементом электронной таблицы, над которым можно выполнять те или иные операции, является такая клетка, которую чаще называют ячейкой. Каждая ячейка имеет уникальное имя (идентификатор), которое составляется из номеров столбца и строки, на пересечении которых располагается ячейка. Нумерация столбцов обычно осуществляется с латинских букв (поскольку их всего 26, а столбцов значительно больше, то далее идёт такая нумерация — AA, AB, ..., AZ, BA, BB, BC, ...), а строк — с десятичных чисел, начиная с единицы. Таким образом, возможны имена (или адреса) ячеек B2, C265, AD11 и т.д. Следующий объект в таблице — диапазон ячеек. Его можно выделить из подряд идущих ячеек в строке, столбце или прямоугольнике. При задании диапазона указывают его начальную и конечную ячейки, в прямоугольном диапазоне — ячейки левого верхнего и правого нижнего углов. Наибольший диапазон представляет вся таблица, наименьший — ячейка. Примеры диапазонов — A1:A100; B12:AZ12; B2:K40. Если диапазон содержит числовые величины, то они могут быть просуммированы, вычислено среднее значение, найдено минимальное или максимальное значение и т.д. Иногда электронная таблица может быть составной частью листа, листы, в свою очередь, объединяются в книгу (такая организация используется в Microsoft Excel). Ячейки в электронных таблицах могут содержать числа (целые и действительные), символьные и строковые величины, логические величины, формулы (алгебраические, логи-ческие, содержащие условие). В формулах при обращении к ячейкам используется два адресации — абсолютная и относительная адресации. При использовании относительной адресации копирование, перемещение формулы, вставка или удаление строки (столбца) с изменением местоположения формулы приводят к перестраиванию формулы относительно её нового местоположения. В силу этого сохраняется правильность расчётов при любых указанных выше действиями над ячейками с формулами. В некоторых же случаях необходимо, чтобы при изменении местоположения формулы адрес ячейки (или ячеек), используемой в формуле, не изменялся. В таких случаях используется абсолютная адресация. В приведенных выше примерах адресов ячеек и диапазонов ячеек адресация является относительной. Примеры абсолютной адресации (в Microsoft Excel): $A$10; $B$5:$D$12; $M10; K$12 (в предпоследнем примере фиксирован только столбец, а строка может изменяться, в последнем — фиксирована строка, столбец может изменяться).
uses crt;
var a[1..100] of integer;
i,n,count:integer;
BEGIN
count:=0;
read(n);
for i:=1 to n do read(a[i]);
if a[i]>0 then inc(count);
write(count);
END.