Напишите программку которая выводит на экран (Паскаль)а)положительные
Напишите программку которая выводит на экран (Паскаль)
а)положительные числа
б)отрицательные
в)четные
г)нечетные
На заметку(числа произвольные либо любые (integer))
Исправлено:Даёться массив из N чисел вывести на экран количесвто чётных и нечётных,количество положительных и отрицательных частей массивов
Борька Кабешев
Сформулируйте задачку более четко. Откуда числа берутся и т.д.
София Делемец
integer
Таисия
integer - это всего только значит, что число будет целое) А сами числа откуда? Их вводит юзер? Или просто random'ные берутся?
Дашенька Остапцова
Если юзер вводит число, выходит, что для варианта а) если число положительное, оно просто будет повторено и программка закончится, а если нет - то закончится молчком?
Элина Солникова
числа вводят свои
Арина Лаушина
Вы опять ничего не написали по существу данных Вам вопросов
Саша Истя
прошу прощения за то что в начале не верно задачку написал и определил )
2 ответа
Павел Вальдбаум
Числа вводятся юзером. Прикрепил скрин работы программы, вот сама программка:
var a:array[1..999]of integer;
i,n:integer;
begin
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
end;
WRITELN;
write ('Числа введённые юзером: ');
for i:=1 to n do
write (a[i],' ');
WRITELN;
WRITELN;
write ('Положительные: ');
for i:=1 to n do
begin
if a[i]gt;0 then write (a[i],' ');
end;
WRITELN;
write ('Отрицательные: ');
for i:=1 to n do
begin
if a[i]lt;0 then write (a[i],' ');
end;
WRITELN;
write ('Чётные: ');
for i:=1 to n do
begin
if a[i] mod 2 = 0 then write (a[i],' ');
end;
WRITELN;
write ('Нечётные: ');
for i:=1 to n do
begin
if a[i] mod 2 lt;gt; 0 then write (a[i],' ');
end;
end.
var a:array[1..999]of integer;
i,n:integer;
begin
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
end;
WRITELN;
write ('Числа введённые юзером: ');
for i:=1 to n do
write (a[i],' ');
WRITELN;
WRITELN;
write ('Положительные: ');
for i:=1 to n do
begin
if a[i]gt;0 then write (a[i],' ');
end;
WRITELN;
write ('Отрицательные: ');
for i:=1 to n do
begin
if a[i]lt;0 then write (a[i],' ');
end;
WRITELN;
write ('Чётные: ');
for i:=1 to n do
begin
if a[i] mod 2 = 0 then write (a[i],' ');
end;
WRITELN;
write ('Нечётные: ');
for i:=1 to n do
begin
if a[i] mod 2 lt;gt; 0 then write (a[i],' ');
end;
end.
Тимур
Const
nn = 100; наибольшее количество частей
var
a:array[1..nn] of integer;
i,n,k,kn,kp,ko,ke: integer;
begin
Writeln('Введите количество частей в массиве (nlt;=100): ');
Readln(n);
Writeln('Введите элементы массива');
kn:=0; kp:=0; ko:=0; ke:=0;
for i := 1 to n do
begin
Read(k); a[i]:=k;
if kgt;0 then Inc(kp)
else if klt;0 then Inc(kn);
if (k mod 2)=0 then Inc(ke) else Inc(ko)
end;
Writeln('Положительных частей ',kp,', отрицательных ',kn);
Writeln('четных частей ',ke,', нечетных ',ko);
end.
Тестовое решение:
Введите количество элементов в массиве (nlt;=100):
13
Введите элементы массива
16 -5 8 21 0 -5 13 32 7 11 -4 2 -5
Положительных частей 8, отрицательных 4
четных частей 6, нечетных 7
nn = 100; наибольшее количество частей
var
a:array[1..nn] of integer;
i,n,k,kn,kp,ko,ke: integer;
begin
Writeln('Введите количество частей в массиве (nlt;=100): ');
Readln(n);
Writeln('Введите элементы массива');
kn:=0; kp:=0; ko:=0; ke:=0;
for i := 1 to n do
begin
Read(k); a[i]:=k;
if kgt;0 then Inc(kp)
else if klt;0 then Inc(kn);
if (k mod 2)=0 then Inc(ke) else Inc(ko)
end;
Writeln('Положительных частей ',kp,', отрицательных ',kn);
Writeln('четных частей ',ke,', нечетных ',ko);
end.
Тестовое решение:
Введите количество элементов в массиве (nlt;=100):
13
Введите элементы массива
16 -5 8 21 0 -5 13 32 7 11 -4 2 -5
Положительных частей 8, отрицательных 4
четных частей 6, нечетных 7
Яна Мигушина
Можно также просто вычеркнуть все, что дотрагивается массива, поэтому что по факту он здесь не нужен.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов