Дан массив из 10 элементов определить где положительных элементов больше в 1 или во 2 половине. 1 половина от 1 до 5. 2 половина от 6 до 10

119

221

Посмотреть ответы 2

Ответы на вопрос:

hiordi

Информатика

4,6(70 оценок)

Var a: array[1..10] of integer; cnt1, cnt2, i: integer; begin for i: = 1 to 10 do read(a[i]); for i: = 1 to 5 do if a[i] > 0 then cnt1 : = cnt1 + 1; for i: = 6 to 10 do if a[i] > 0 then cnt2 : = cnt2 + 1; if cnt1 = cnt2 then writeln('количество пол-х элементов одинаково'); if cnt1 > cnt2 then writeln('количество пол-х элементов больше в первой половине'); if cnt1 < cnt2 then writeln('количество пол-х элементов больше во второй половине'); end. пример: -1 -2 3 5 0 4 6 7 -2 -5 количество пол-х элементов больше во второй половине