function FirstNegative(a: V; n: integer): integer; var i: integer; begin i := 0; Result := 0; repeat i := i + 1; if a[i] < 0 then Result := i until (Result > 0) or (i > lim) end;
procedure InpMass(var a: V; var n: integer; mName: string); // Организует ввод массива var i, p: integer; begin writeln('Вводите элементы массива ' + mName + '; 7777 - конец ввода'); i := 0; repeat read(p); i := i + 1; if p <> 7777 then a[i] := p; until (p = 7777) or (i > lim); n := i - 1 end;
var a, b: V; m, n, p, q: integer;
begin InpMass(a, m, 'A'); InpMass(b, n, 'B'); p := FirstNegative(a, m); q := FirstNegative(b, n); if p <= q then writeln('Номер первого отрицательного элемента в массива А: ', p) else writeln('Номер первого отрицательного элемента в массива B: ', q) end.
Тестовое решение:
Вводите элементы массива A; 7777 - конец ввода 37 14 -25 32 30 -29 38 27 7777 Вводите элементы массива B; 7777 - конец ввода 33 -36 23 -17 -3 -16 -33 33 -48 -39 30 7777 Номер первого отрицательного элемента в массива B: 2
1.В Древней Индии писали на камне и листьях пальмы. Листья пальмы высушивали и нарезали длинными, узкими пластинами. 2.На большей части территории Индии чернила получали из черной сажи или древесного угля, а писали тростниковым пером. 3.Примерно как традиционная тибетская (от Индии и заимствованная) . Исконно индийский писчий материал - пальмовые листья. Книги представляли собой стопку прямоугольных листов (формата нашей закладки) не скреплённые, и укладывались в футляр. Свитки появились позднее. 4.арабские цифры 5.Арабские цифры возникли в Индии, не позднее V века. 6.Китайская письменность, как это ни странно, больше имеет сходство с письменностью острова Юкотан - индейской 7.В КНР стандартом грамотности считается освоение 1500 знаков (в сельской местности) или 2000 знаков (в городах, а также для рабочих и служащих на селе). 3000 иероглифов достаточно для чтения газет и неспециализированных журналов. Большие однотомные толковые или двуязычные словари включают, как правило, 6000—8000 иероглифов. Среди этого объёма уже немало весьма редко используемых иероглифов, например, используемые в названиях ритуальных предметов древности или медикаментов традиционной китайской медицины. 8.Традиционно китайцы писали сверху вниз, а столбцы шли справа налево. В некоторых случаях (например, на вывесках) использовалось горизонтальное письмо справа налево. Позже стал использоваться также «европейский письма — горизонтально слева направо. 9.В Древнем Китае было налажено изготовление бамбуковых книг. Тонко выструганные пластинки бамбука скреплялись вместе металлическими скобами в виде современной раздвижной оконной шторы. На такой книге-шторке, так же как и на изобретенном позднее шелке, китайцы рисовали свои иероглифы кисточками, используя для этого тушь. 10.Современные ученые, занимающиеся исследованиями в области косметологии, обнаружили, что аминокислоты, входящие в состав протеинов шелка, оказывают эффективное увлажняющее действие и делают кожу гладкой и упругой, устраняют ощущение стянутости, разглаживают мелкие морщинки, создают непередаваемое ощущение нежности. Эти свойства нашли широкое применение в производстве лечебной и декоративной косметики. Наиболее широко применяются три вида производных шелка: аминокислоты шелка, гидролизованный протеин шелка и шелковый порошок или пудра. 11.Китайские летописи сообщают, что бумага была изобретена в 105 году н. э. Цай Лунем (подробнее см. четыре великих изобретения) . Однако в 1957 году в пещере Баоця северной провинции Китая Шаньси обнаружена гробница, где были найдены обрывки листов бумаги. Бумагу исследовали и установили, что она была изготовлена во II веке до нашей эры. 12.Примерно в 105 году н. э. , китайский сановник Цай Лунь, изобрел первый промышленный изготовления бумаги. Вначале, приготавливалась волокнистая масса, которая зачерпывалась специальной формой-сеткой. Вода, которая находилась в этой массе, просачивалась сквозь отверстия в сетке, оставляя лишь ровный слой будущей бумаги. В качестве материала для бумажной массы, использовалась измельченная и сваренная в чанах с клейким веществом древесина и другой растительный материал. 13.Технологическая схема производства бумаги (картона) состоит из следующих процессов: приготовления бумажной массы, включающего операции по массному размолу волокон, проклейке, наполнению и крашению массы; аккумулирования бумажной массы; разбавления массы водой до необходимой концентрации; очистки от посторонних включений и узелков; изготовления бумаги (картона) на бумагоделательной (картоноделательной) машине, включающего отлив бумажного (картонного) листа, его прессование, сушку, отделку и намотку в рулон; отделки и переработки бумаги (картона) , включающих суперкаландрирование, перемотку, резку и упаковку. 14.Потому что китайцы держали в строжайшей тайне секреты производства бумаги, шелка и пр.Секрет китайской бумаги, через арабов, попал в Европу.
program z1;
var i : integer;
begin
for i:= 1 to 5 do
writeln(i);
end.
program z2;
var i : integer;
begin
i:=0;
while i<5 do
begin
i:=i+1;
writeln(i);
end;
end.
program z3;
var i : integer;
begin
i:=0;
repeat
i:=i+1;
writeln(i);
until i>=5;
end.