Требуется найти максимальное значение среди положительных элементов массива A. Запишите условие, при котором обновляется значение максимального значения в переменной М.
uses crt; var x,y: real;begin clrscr; write ('x = '); read (x); write ('y = '); readln (y); if (x > 0) and (y > 0) then writeln ('Номер четверти координатной плоскости:I') else if (x < 0) and (y > 0) then writeln ('Номер четверти координатной плоскости:II') else if (x < 0) and (y < 0) then writeln ('Номер четверти координатной плоскости:III') else if (x > 0) and (y < 0) then writeln ('Номер четверти координатной плоскости:IV') else if (x>0)or(x<0) and (y=0) then writeln ('-. Точка лежит на оси. X') else if (y>0)or(y<0) and (x=0) then writeln ('-. Точка лежит на оси. Y') else writeln ('-. Точка лежит в центре.');readln end.
1) пассажир Иванов живёт в Москве; 2) проводник живёт на полпути между Москвой и Санкт-Петербургом; 3) пассажир-однофамилец проводника живёт в Санкт-Петербурге; 4) у пассажира, который живёт ближе к месту жительства проводника, чем другие пассажиры, вдвое больше детей, чем у проводника; 5) у пассажира Петрова трое детей; 6) Сидоров (из поездной бригады) недавно выиграл у машиниста партию на бильярде 7) п1+п3 = проводник не Иванов. Кто-то из пассажиров живет в С-Петербурге8) п4+п5+п7 = У Петрова нечетное кол-во детей, значит он не тот кто живет рядом с проводником. Петров живет в С-Петербурге9) п3+п8 = У проводника фамилия Петров10) п6+п9 = машинист не Сидоров. Машинист - Иванов ответ: Иванов
A = [-1, 0, 1, 2, 4, 3, 7, 5]
M = 0
for i in A:
if i > M:
M = i
# Это один из вариантов, есть и другой:
A = [-1, 0, 1, 2, 4, 3, 7, 5]
M = A[0]
for i in range(len(A)):
if A[i] > M and A[i] > 0:
M = A[i]
Будут вопросы, пиши.