===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6
В общем это похоже на принцип связи мобильника, компьютер через многопроводную линию - связывается с другими устройствам.
Вот код для qbasic'a
SCREEN 12
cls
LINE (200, 200)-(350, 400), , B
LINE (200, 200)-(275, 100)
LINE (275, 100)-(350, 200)
CIRCLE (275, 160), 20
PAINT (275, 160)
LINE (250, 250)-(300, 300), , B
LINE (275, 250)-(275, 300)
LINE (250, 270)-(300, 270)
LINE (350, 400)-(355, 210), , B
LINE (350, 210)-(370, 200), , B
LINE (350, 400)-(400, 400)
LINE -(400, 380)
LINE -(380, 380)
LINE -(380, 360)
LINE -(355, 360)
LINE (325, 165)-(325, 100)
LINE -(310, 100)
LINE -(310, 145)