Вопрос по информатике:
Массив содержит 20 элементов. Определить количество положительных элементов в первой его половине и количество отрицательных элементов во второй. Блок схему и программу плизз
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.08.2015 12:51
- Информатика
- remove_red_eye 10036
- thumb_up 13
Ответы и объяснения 2
begin
var mas:=ArrRandom(20,-99,99); mas.Println;
var a:=mas[0:10]; var b:=mas[10:20];
Writeln('количество положительных элементов=',a.Where(t->t>0).Count);
Writeln('количество отрицательных элементов=',b.Where(t->t<0).Count);
end.
это как учат в школе :->
var
i,k,l:integer;
mas:Array[1..20] of integer;
begin
randomize;
for i:=1 to 20 do
mas[i]:=random(-99,99);
for i:=1 to 10 do
if mas[i]>0 then
k:=k+1;
for i:=11 to 20 do
if mas[i]>0 then
l:=l+1;
Writeln('количество положительных элементов=',k);
Writeln('количество отрицательных элементов=',l);
end.
- 09.08.2015 13:11
- thumb_up 31
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t->t>0).Count);
Println('Во второй половине отрицательных:',a[a.Length div 2:].Println.Where(t->t<0).Count);
end.
Пример:
Введите размер массива: 10
-6 8 -12 -5 -4 16 -1 -14 1 0
-6 8 -12 -5 -4
В первой половине положительных: 1
16 -1 -14 1 0
Во второй половине отрицательных: 2
- 01.01.1970 00:00
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.