<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var s:=a.Where(t->t.IsEven); s.Println; Writeln('Кол-во = ',s.Count);
s:=a.Where(t->t.IsOdd).Reverse; s.Println; Writeln('Кол-во = ',s.Count);
var imax:=a.IndexMax;
Writeln('Номер максимального элемента- ',imax+1,
', его значение- ',a[imax])
end.
<u>Пример</u>
n= 15
-39 29 23 4 -26 41 23 -9 10 49 -24 39 -28 19 15
4 -26 10 -24 -28
Кол-во = 5
15 19 39 49 -9 23 41 23 29 -39
Кол-во = 10
Номер максимального элемента- 10, его значение- 49
<span>Информатика она везде. Например обычный диск на котором хранится информация. Обычная бумага тоже имеет роль к информатики и в древности это были наскальные рисунки. Все это информация, а информатика как раз и наука об информации!</span>
Размер данных на флешке = 4,44*0,88=3,9072 ГБ = 4000,9728 Мб = 4096996,1472 Кб
Разделим размер на скорость и получим секунды.
4096996,1472/1199=3417 секунд
На рисунке большой круг включает в себя два маленьких. Так как города в Англии и столичные европейские города все являются европейскими городами, то множество а включает в себя множества б и в, большой круг - множество а. Его элементы: Манчестер, Ливерпуль, Лондон, Москва, Париж, Мадрид, Венеция, Брест, а также многие не указанные на рисунке города, например, Кардифф, Женева, Милан.
Оставшиеся два круга представляют города в Англии и европейские столицы. Так как в множество, отвечающее левому кругу, входят Манчестер, Ливерпуль и Лондон, то это города Англии. В это множество входят и другие города, например, Кардифф.
Правому кругу, в котором записаны Лондон, Москва, Париж и Мадрид, остаётся только множество европейских столиц. В это множество входит также Женева и другие города.
program z1;
var x:integer;
begin
writeln('введите Х');
readln(X);
if x>0 then writeln('число положительное') else writeln('число не положительное');
end.