Дан массив с размеров 10 элементов,элементы вводятся с клавиатуры. а)найти сумму отрицательных элементов массива б)поменять 1 и 5 элементы местами в)выполнить сортировку массива по возрастанию методом "пузырька"
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 const n=10; begin var c:=ReadArrInteger('Введите 10 чисел:',10); Writeln('Сумма отрицательных равна ',c.Where(x->x<0).Sum); Swap(c[0],c[4]); c.Println; // сортировка for var i:=0 to n-2 do for var j:=0 to n-2 do if c[j]>c[j+1] then Swap(c[j],c[j+1]); c.Println end.
ТЕЛЕКОММУНИКАЦИИ, комплекс технических средств,предназначенных для передачи информации на расстояние. Информация поступает в самыхразнообразных видах: как цифровые сигналы, звуки, печатные слова или изображения. Пересылкавыполняется посредством ТЕЛЕГРАФА, ТЕЛЕФОНА и РАДИО, по проводам или РАДИОВОЛНАМИ; иногдаэти комбинируются. Телеграф был разработан в середине XIX в., а в конце столетия появилосьрадио. ТЕЛЕВИДЕНИЕ возникло в 1930-х гг. Есть два основных вида сообщений: ЦИФРОВЫЕ СИГНАЛЫ, вкоторых сообщение превращается в ряд кодированных импульсов, а затем посылается (как в АЗБУКЕМОРЗЕ), и АНАЛОГОВЫЕ СИГНАЛЫ, когда сообщение, например, голосовая речь, в серию передаваемых электрических импульсов, в волновой форме аналогичныхМОДУЛЯЦИЯМ
1. → 2 [сдвинуться вправо, перейти на строку 2] 2. → 3 [сдвинуться вправо, перейти на строку 3] — в вопросе опечатка? 3. → 4 [сдвинуться вправо, перейти на строку 4] 4. ? 5;2 [если в текущей ячейке нет метки, перейти на строку 5, иначе вернуться на 2] 5. ← 6 [сдвинуться влево, перейти на строку 6] 6. V 7 [поставить метку, перейти на строку 7] 7. ! [закончить работу]
Программа делает следующее: переходит на метку вправо, шагами по две ячейки идёт вправо, пока не дойдёт до пустой ячейки, возвращается на ячейку влево, ставит там метку и заканчивает работу.
Пусть метки расположены в ячейках 0 - (n-1), каретка под ячейкой 0. Тогда сначала каретка окажется подячейкой 1, сделает [n/2] шагов по 2 вправо ([x] — целая часть x), оказавшись под ячейкой 1 + 2 * [n/2], вернётся на ячейку влево (ячейка 2 * [n/2]) и поставит там метку.
Если n было четным, будут заполнены ячейки от 0 до n, каретка под ячейкой n Если n было нечетным, будут заполнены ячейки от 0 до n - 1, каретка под ячейкой n - 1
const
n=10;
begin
var c:=ReadArrInteger('Введите 10 чисел:',10);
Writeln('Сумма отрицательных равна ',c.Where(x->x<0).Sum);
Swap(c[0],c[4]); c.Println;
// сортировка
for var i:=0 to n-2 do
for var j:=0 to n-2 do
if c[j]>c[j+1] then Swap(c[j],c[j+1]);
c.Println
end.
Тестовое решение
Введите 10 чисел: -45 18 20 40 -4 -7 -38 -26 6 -50
Сумма отрицательных равна -170
-4 18 20 40 -45 -7 -38 -26 6 -50
-50 -45 -38 -26 -7 -4 6 18 20 40