Алгоритм содержит цикл с предусловием. Цикл выполняется до тех пор, пока b≠5. Начальное значение b=10, а в теле цикла b уменьшается каждый раз на 1, т.е. цикл будет выполнен для b=10,9,8,7,6 - пять раз.
В цикле переменная с накапливает сумму значений b, следовательно по окончании цикла с = 10+9+8+7+6 = 40
Ответ: 40
<em>/ PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ArrRandom(ReadInteger('n='),-99,99).Select(i->i/10).ToArray;
m.Println;
var mx:=m.MaxBy(x->Abs(x));
Writeln('Номер первого максимального по модулю элемента: ',
m.IndexOf(mx)+1);
Writeln('Искомая сумма: ');
var i:=m.FindIndex(x->x>0);
if (i=-1) or (i=m.Length-1) then Writeln(0)
else Writeln(m[i+1:].Sum);
var a,b:integer;
Write('Введите границы интервала: '); Read(a,b);
var t:=m.Where(x->Trunc(x) in [a..b]).ToArray;
t:=t+m.Where(x-> not (Trunc(x) in [a..b])).ToArray; t.Println;
end.
<u>Пример</u>
n= 10
-3 3.7 9.9 -3.8 1.6 -8.4 5.7 -7.9 -9.4 7.8
Номер первого максимального по модулю элемента: 3
Искомая сумма:
-4.5
Введите границы интервала: -5 5
-3 3.7 -3.8 1.6 5.7 9.9 -8.4 -7.9 -9.4 7.8
Многоуровневый список, имеющего четыре уровня вложенности компьютера.
1. Процессор
2. Память
2.1. Оперативная память
2.2. Долговременная память
2.2.1. Жесткий магнитный диск
2.2.2. Дискета
2.2.3. Флэш-память
2.2.4. Оптические диски
2.2.4.1. CD
2.2.4.2. DVD
3. Устройства ввода
3.1. Клавиатура
3.2. Мышь
3.3. Сканер
3.4. Графический планшет
3.5.Цифровая камера
3.6. Микрофон
3.7. Джойстик
4. Устройства вывода
4.1. Монитор
4.1.1. Жидкокристаллический монитор
4.1.2. Монитор на электронно-лучевой трубке
4.2. Принтер
4.2.1. Матричный принтер
4.2.2. Струйный принтер
4.2.3. Лазерный принтер
Var
a: array[1..7] of string = ('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
av: real; i, t: integer;
begin
writeln('Введите температуру воздуха за неделю.');
for i := 1 to 7 do
begin
write(a[i], ' -> '); readln(t); av := av + t;
end;
av := av / 7;
writeln('Средняя температура за неделю: ', av:0:2, ' град.');
readln;
end.
В.в 33333333333333333333333333333333