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

Хотите узнать готовый ответ на вопрос дан массив из 10 элементов определить где положительных элементов больше в 1 или во 2 половине. 1 половина от 1 до 5. 2 половина от 6 до 10 и правильно решить домашнее задание по предмету Информатика? Подробное решение смотрите ниже.

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

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
Количество пол-х элементов больше во второй половине


Похожие ответы

8. Дан массив А(9). Упорядочить элементы, массива по убыванию. QBASIC
8. Дан массив А9. Упорядочить элементы, массива по убыванию.
Shell folder userdocs помогите решить напишите действия поэтапно
Shell folder userdocs помогите решить напишите действия
2мб=?кб,6гб=?мб,18тб=?гю,8кб=?бит
2мб?кб,6гб?мб,18тб?гю,8кб?бит
Черно-белое (без градаций серого) графическое изображение имеет размер 11×11 точек. Какой объём памяти займёт это изображение?
Черно-белое без градаций серого графическое изображение имеет размер 1111 точек. Какой объём памяти