Основные нормативные параметры форматирования. Размер шрифта: строчные буквы, шрифт заголовков, формулы. Количество строк на странице, количество знаков на строке. Междустрочные интервалы. Поля страницы: левое, правое, верхнее, нижнее. Нумерация страниц
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-11,11); a.Println; // 1 begin var s:=a.Where(t->t<0); if s.Count=0 then Writeln('1. Нет отрицательных элементов') else Writeln('1. Первый отрицательный элемент номер ', a.IndexOf(s.First)+1) end; // 2 begin var s:=a.Select((v,i)->(v,i)).Where(t->(t[0]>0) and t[0].IsEven); if s.Count=0 then Writeln('2. Нет четных положительных элементов') else begin var r:=s.Last; Writeln('2. Последний четный положительный элемент номер ',r[1]+1, ', значение ',r[0]) end end; // 3 begin var s:=a.Select((v,i)->(v,i)).Where(t->t[0] mod 5=0); if s.Count<2 then Writeln('3. Нет двух элементов, кратных 5') else Writeln('3. Номер второго элемента, кратного 5, равен ', (s.Skip(1).Take(1)).First[1]+1) end; // 4 begin var s:=a.Select((v,i)->(v,i)).Where(t->t[0]=0); if s.Count<3 then Writeln('4. Нет трех нулевых элементов') else begin s:=s.Skip(1).Take(2); Writeln('4. Количество положительных элементов между ', 'вторым и третьим нулевыми элементами равно ', a[s.First[1]+1:s.Last[1]].Where(t->t>0).Count) end end; // 5 begin var s:=a.IndexesOf(t->t>0).Take(4).Select(t->t+1); if s.Count<4 then Writeln('5. Нет четырех положительных элементов') else begin Write('5. Номера первых четырех положительных элементов: '); s.Println end end; // 6 begin var s:=a.IndexesOf(t->t<0); if s.Count=0 then Writeln('6. Нет отрицательных элементов') else Writeln('6. Номера первого и последнего отрицательных элементов: ', s.First+1,' ',s.Last+1) end; // 7 begin var s:=a.IndexesOf(t->t>0); if s.Count=0 then Writeln('7. Нет положительных элементов') else begin var i1:=s.First; s:=a.IndexesOf(t->t<0); if s.Count=0 then Writeln('7. Нет отрицательных элементов') else begin var i2:=s.Last; Writeln('7. Количество четных элементов между первым ', 'положительным и последним отрицательными элементами: ', a?[i1+1:i2].Where(t->t.IsEven).Count) end end end end.
1) Информация для человека — это знания которые он получает из различных источников. 2) Информация понятна, если она выражена на языке доступном для получателя. 3) Сообщение может пополнить знания человека, если содержащиеся в нем сведения являются для человека понятными и новыми. 4) Знания человека можно разделить на две части - факты и правила. 5) К фактам относятся знания о определенных явлениях, событиях, свойствах объектов и зависимости между объектами. 6) К правилам относятся знания о последовательностях действий, направленных на достижение некоторой цели.
1) В грозу нередко возникают сильные ветра разрушительной силы 2) Куликовская битва состоялась 8 сентября 1380 года. 3) Золото, серебро, платина относятся к драгоценным металлам. 4) Луна является спутником Земли
Размер шрифта: строчные буквы, шрифт заголовков, формулы.
Количество строк на странице, количество знаков на строке.
Междустрочные интервалы.
Поля страницы: левое, правое, верхнее, нижнее.
Нумерация страниц