Вопрос по информатике:
Дан массив из 10 элементов определить где положительных элементов больше в 1 или во 2 половине. 1 половина от 1 до 5. 2 половина от 6 до 10
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.07.2015 01:20
- Информатика
- remove_red_eye 11394
- thumb_up 8
Ответы и объяснения 1
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
Количество пол-х элементов больше во второй половине
- 03.07.2015 17:34
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.