Question

Числа введённые случайным образом (от -15 до 23) необходимо определить количество отрицательных,положительных,чёт,нечёт чисел,мин и макс число в последовательности и вывести сообщение на экран при присутствии в последовательности 0. (ПАСКАЛЬ )

Answer 1

Ответ:

var n,i,a,ko,kp,k1,k2,min,max,k:integer;

begin

write('Введите количество чисел в последовательности (n>0) ');

readln (n);

a:=random(39)-15;

min:=a;

max:=a;

write ('Последовательность ');

for i:=1 to n do

begin

if a=0 then k:=1;

if a<0 then ko:=ko+1;

if a>0 then kp:=kp+1;

if a mod 2 = 0 then k2:=k2+1 else k1:=k1+1;

if a<min then min:=a;

if a>max then max:=a;

write (a,'  ');

a:=random(39)-15;

end;

writeln;

writeln ('Количество отрицательных чисел ko = ',ko);

writeln ('Количество положительных чисел kp = ',kp);

writeln ('Количество чётных чисел k2 = ',k2);

writeln ('Количество нечётных чисел k1 = ',k1);

writeln ('Минимальное число min = ',min);

writeln ('Максимальное число max = ',max);

if k=1 then writeln ('В последовательности присутствовал 0')

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая решает вашу задачу:

pascalCopy code
program CountNumbers;
var
  num, countPositive, countNegative, countEven, countOdd, minNum, maxNum, zeroCount: integer;
begin
  countPositive := 0;
  countNegative := 0;
  countEven := 0;
  countOdd := 0;
  zeroCount := 0;
  
  writeln('Введите числа (для окончания ввода введите 0):');
  readln(num);
  minNum := num;
  maxNum := num;
  
  while num <> 0 do
  begin
    if num < 0 then
      countNegative := countNegative + 1
    else
      countPositive := countPositive + 1;
      
    if num mod 2 = 0 then
      countEven := countEven + 1
    else
      countOdd := countOdd + 1;
      
    if num < minNum then
      minNum := num;
      
    if num > maxNum then
      maxNum := num;
      
    if num = 0 then
      zeroCount := zeroCount + 1;
      
    readln(num);
  end;
  
  writeln('Количество положительных чисел: ', countPositive);
  writeln('Количество отрицательных чисел: ', countNegative);
  writeln('Количество чётных чисел: ', countEven);
  writeln('Количество нечётных чисел: ', countOdd);
  writeln('Минимальное число: ', minNum);
  writeln('Максимальное число: ', maxNum);
  
  if zeroCount > 0 then
    writeln('В последовательности есть число 0.');
    
  readln;
end.

Программа запрашивает у пользователя числа до тех пор, пока не будет введен 0. Затем она подсчитывает количество положительных, отрицательных, четных и нечетных чисел, а также находит минимальное и максимальное число в последовательности. Если в последовательности присутствует 0, выводится соответствующее сообщение.