Question

Напишите программу которая выводит на экран (паскаль) а)положительные числа б)отрицательные в)четные г)нечетные на заметку(числа произвольные или любые (integer)) исправлено: даёться массив из n чисел вывести на экран количесвто чётных и нечётных,количество положительных и отрицательных элементов массивов

Answer 1

Числа вводятся пользователем. Прикрепил скрин работы программы, вот сама программа:

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]>0 then write (a[i],' ');
end;
WRITELN;
write ('Отрицательные: ');
for i:=1 to n do
begin
if a[i]<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 <> 0 then write (a[i],' ');
end;
end.

Answer 2

Const
  nn = 100; { максимальное количество элементов }
var
  a:array[1..nn] of integer;
  i,n,k,kn,kp,ko,ke: integer;
begin
  Writeln('Введите количество элементов в массиве (n<=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 k>0 then Inc(kp)
    else if k<0 then Inc(kn);
    if (k mod 2)=0 then Inc(ke) else Inc(ko)
  end;
  Writeln('Положительных элементов ',kp,', отрицательных ',kn);
  Writeln('четных элементов ',ke,', нечетных ',ko);
end.

Тестовое решение:
Введите количество элементов в массиве (n<=100):
13
Введите элементы массива
16 -5 8 21 0 -5 13 32 7 11 -4 2 -5
Положительных элементов 8, отрицательных 4
четных элементов 6, нечетных 7