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


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

Даю 50 баллов РИСУНОК В ПАСКАЛЕ (КРОМЕ ДОМИКА,И ЕЛКИ )
Даю 50 баллов РИСУНОК В ПАСКАЛЕ КРОМЕ ДОМИКА,И ЕЛКИ
Помогите!!!!!Пожааалуйста
Помогите!!!!!Пожааалуйста
Дано целое число. Если оно кратно 5, увеличить его в 2 раза, если нет- уменьшить на 5.
Дано целое число. Если оно кратно 5, увеличить его в 2 раза, если нет- уменьшить на
Цветное (с палитрой из 256 цветов)растровое графическое изображение имеет размер 40×40 точек,какой объем памяти в байтах займёт это изображение?
Цветное с палитрой из 256 цветоврастровое графическое изображение имеет размер 4040 точек,какой