При первом проходе программы
m=0
в цикле for сравниваем Если элемент массива под номером 1 (т.е. число 2) минус 2*m>1 то m равна текущему элементу массива.
т.к. 2-2*0=2 и это больше 0 то значение m становится равным 2
1 проход m=2
При втором проходе цикла фор сравниваем уже второй элемент массива, т.е.
Dat[2]-2*m>1
6-2*2>1
2>1
Условие выполняется значит значение m на 2 проходе равно 6
при дальнейших проходах цикла for мы больше не получим значений больше 1 т.к. текущее m=6, т.е. из элементов массива мы будем вычитать 12, т.е. ни одного положительного числа мы не получим, т.е. условие if не выполнится ни разу и значение m не изменится
ответ m=6
1) Название: Алгоритмы. Построение и анализ.
Автор: Томас Кормен, Чарльз Лейзерсон, Рональд Ривест, Клиффорд Штайн
Издательство: Вильямс
Год: 2012
Страниц: 1296 стр.
2) Компьютерная графика. Популярная энциклопедия.
Автор: В.И.Мураховский
Издательство: АСТ-Пресс
Год: 2002
Страниц 640 стр.
3) Компьюерная обработка информации
Автор: А.Н.Денисенко
Издательство: Медпрактика -М
Год: 2010
Страниц 252 4) Автор: Макарова Н.В.Издательство: СПб.: Питер
Год издания: 2010
Страниц: 161
5) Название: Технология. 2 класс. Учебник.
Автор: Роговцева Н.И., Богданова Н.В., Добромыслова Н.В.
Издательство: Просвещение
Год издания: 2012
Страниц: 98
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-60,60); a.Println;
var (s1,s2):=(a.Where(x->x>0).Sum,a.Where(x->x<0).Sum);
var z:=s1+s2/2;
Writeln('z=',z)
end.
Пример
n= 16
-3 -42 48 -6 -27 45 -44 43 -34 53 19 -28 57 12 -19 -1
z=175