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


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

Помогите решить информатику
Помогите решить информатику
какой формат не подходит для сохранения растровых изображений
какой формат не подходит для сохранения растровых
Помогите решить плиз !!
Помогите решить плиз !!