Дан целочисленный массив размером n. вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем - все нечетные в порядке убывания их индексов (если можно еще блок схему(не обязательно))
Program z1; const N=10; var i,k:integer; a:array [1..N] of integer; begin for i:=1 to N do readln (a [i]); for i:=1 to N do begin if (a [i] mod 2 = 0) then write (a [i]); end; for k:=10 downto 1 do begin if (a [k] mod 2 = 1) then write (a [k]); end; end.
Интересная задачка. попробую объяснить как решал. сначала расставим то, что известно однозначно. это то, что Николай встречается со Ольгой потом Толя - поросенок. потом Миша - Томин на этом все. теперь размышляем. Сидоров не Толя и не Саша. а так же не Николай(потому что пришел с Леной) остаются Вася и Миша. однако фамилию Миши мы знаем. следовательно Сидоров - Вася. Сразу же записываем к Васе Лену. теперь с маской. Он не кот(Иванов), не собака(Петров), не поросенок(Толя), не бычок(Света) следовательно он мишка. Толя пришел не с Таней и не со Светой. так же не с Леной(Вася) и не с Ольгой. остается только Катя. Толя не Сидоров(Вася), не Томин (миша), не Иванов(Катя), не Петров(собака) остается Васильев Николай не Сидоов(Вася), не Томин(миша), не Васильев(Толя) и не Петров(пунтк 1) следовательно он Иванов. сразу пишем к нему кота остается одна фамилия - Петров и это Саша так же сразу пишем собаку к нему. из масок остался только бык - Миша с быков встречается Света ну и последняя девушка Таня остается Саше вот и все) но можно последовать совету, который написали раньше и составить бооольшую таблицу. тот вариант действительно нагляднее
Корпоративные требования к почтовой перепискеписьмо состоит из трех частей1. Обращение2. текст письма3. Подпись4. исполнитель или сотрудник для связи с полными координатами(адреса: почтовый,E-mail, IСQ,телефон) Сетевой этикет Сетево́й этике́т (сетикет, нетикет — неологизм, является слиянием слов «сеть» (англ. net) и «этикет») — правила поведения, общения в Сети, традиции и культура интернет-сообщества, которых придерживается большинство. Это понятие появилось в середине 80-х годов XX века в эхоконференциях сети FIDO. Некоторые из правил сетевого этикета присутствуют в RFC 1855 (английский вариант). Правила этикета не являются всеобщими и жестко установленными — в разных сообществах они могут значительно различаться. Так как основная цель этикета состоит в том, чтобы не затруднять общение в сообществе, правила могут устанавливаться исходя из целей сообщества, принятого стиля общения, технических ограничений, и т. д. Некоторые правила записаны, и даже оформляются в виде формального устава, а иногда и просто в виде списка, другие правила нигде не записаны, но известны большинству членов сообщества и строго соблюдаются.
const N=10;
var
i,k:integer;
a:array [1..N] of integer;
begin
for i:=1 to N do
readln (a [i]);
for i:=1 to N do
begin
if (a [i] mod 2 = 0) then
write (a [i]);
end;
for k:=10 downto 1 do
begin
if (a [k] mod 2 = 1) then
write (a [k]);
end;
end.