Массив содержит 20 частей. Найти количество положительных частей в первой его
Массив содержит 20 элементов. Найти количество положительных элементов в первой его половине и количество отрицательных частей во 2-ой. Блок схему и программку плизз
Задать свой вопрос
Капрэлян
Татьяна
мне на С++ надобно
Степан Башеренков
А нельзя было указать это в собственном вопросе !!!
Лидия Сапоровская
сорян
Яна Шпонова
напишите если не тяжело
Мария Бенза
пожалуйста
Павел Тололуев-Морозов
да я забылся, целый денек сижу учу, завтра экзамен
2 ответа
Денчик Урванович
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t-gt;tgt;0).Count);
Println('Во 2-ой половине отрицательных:',a[a.Length div 2:].Println.Where(t-gt;tlt;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-ой половине отрицательных: 2
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t-gt;tgt;0).Count);
Println('Во 2-ой половине отрицательных:',a[a.Length div 2:].Println.Where(t-gt;tlt;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-ой половине отрицательных: 2
Dasha Lukashik
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программка не работает, обновите версию!
begin
var mas:=ArrRandom(20,-99,99); mas.Println;
var a:=mas[0:10]; var b:=mas[10:20];
Writeln('количество положительных элементов=',a.Where(t-gt;tgt;0).Count);
Writeln('количество отрицательных частей=',b.Where(t-gt;tlt;0).Count);
end.
это как учат в школе :-gt;
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]gt;0 then
k:=k+1;
for i:=11 to 20 do
if mas[i]gt;0 then
l:=l+1;
Writeln('количество положительных элементов=',k);
Writeln('количество отрицательных частей=',l);
end.
begin
var mas:=ArrRandom(20,-99,99); mas.Println;
var a:=mas[0:10]; var b:=mas[10:20];
Writeln('количество положительных элементов=',a.Where(t-gt;tgt;0).Count);
Writeln('количество отрицательных частей=',b.Where(t-gt;tlt;0).Count);
end.
это как учат в школе :-gt;
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]gt;0 then
k:=k+1;
for i:=11 to 20 do
if mas[i]gt;0 then
l:=l+1;
Writeln('количество положительных элементов=',k);
Writeln('количество отрицательных частей=',l);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов