В одномерном массиве, состоящем из N действительных элементов, вычислить: 1. номер последнего максимального по модулю элемента массива;
2. сумму модулей элементов массива, расположенных перед первым положительным элементом. Сжать массив, удалив из него все элементы, величина которых находится в интервале [a, b]. Элементы, освободившихся в конце массива, заполнить нулями
var n:=readInteger('Число элементов массива-');
var a:=ArrRandom(n,-50,50); a.Println;
for var i:=1 to n-2 do a[i]:=2*(i+1);
a.Println
end.
Пример
Число элементов массива- 10
-40 4 -49 0 -47 41 49 33 -31 -1
-40 4 6 8 10 12 14 16 18 -1
begin
var n:=readInteger('Число элементов массива-');
var a:=ArrRandom(n,-50,50); a.Println;
var i1:=a.IndexMax;
var i2:=a.IndexMin;
Writeln(a[min(i1,i2)+1:max(i1,i2)].Where(x->x<0).Sum)
end.
Пример
Число элементов массива- 18
-45 -30 -49 -44 34 -5 -12 -28 22 14 -39 -20 -46 50 6 21 20 -47
-194
begin
var a:=ReadlnString('Введите строку;').ToCharArray;
// было сделано так только ради получения массива символов,
// который на самом деле только мешает
Writeln(a);
if Pos('...',a.JoinIntoString)>0 then
Writeln('Троеточие в массиве есть')
else Writeln('Троеточия в массиве нет')
end.
Пример
Введите строку; 6ye$% DFDRT..drrtert...DFDGD
[6,y,e,$,%, ,D,F,D,R,T,.,.,d,r,r,t,e,r,t,.,.,.,D,F,D,G,D]
Троеточие в массиве есть
Сын точно слесарь
Муж может быть только учителем или юристом
Отсюда следует, что экономист либо жена либо отец жены.
Мне в равной мере трудно представить в одной футбольной команде мать и сына или деда и сына, но деваться некуда, приходится выбирать. Я бы выбрала мать, но поскольку феминизм у нас не особо развит, будем считать, что женщины на заводах в футбол не играют;-)
Тогда получается, что
- отец жены - экономист
- жена - юрист, т.к. она не может быть учителем, иначе окажется одновременно старше и младше инженера
- муж - учитель, т.к. не кровный родственник жене-юристу.
ПС.: Все таки вопрос кому играть в футбол за завод - 60-летнему дедушке или крепкой 40-летней бабе , - весьма спорный и субъективный.