Question

30 баллов за два задания на PASCAL 1. Сгенерировать N случайных целых чисел в диапазоне от -10 до 10, записать их в массив. Посчитать, сколько среди них положительных, отрицательных и нулевых значений. Вывести на экран элементы массива и посчитанные количества. 2. Переменной t присвоить значение истина, если в одномерном массиве имеется хотя бы одно отрицательное четное число.

Answer 1

Программа:

Pascal:

1.

const N = 10;

var

 pol, otr, nul, i: integer;

 arr: array[1..N] of integer;

begin

 randomize;

 for i := 1 to N do begin

   arr[i] := random(-10, 10);

   if arr[i] > 0 then inc(pol);

   if arr[i] = 0 then inc(nul);

   if arr[i] < 0 then inc(otr);

 end;

 writeln('Массив: ',arr);

 writeln('Положительных чисел: ', pol);

 writeln('Нулей: ', nul);

 writeln('Отрицательных чисел: ', otr);

end.

2.

const N = 10;

var

 t: boolean;

 pol, otr, nul, i: integer;

 arr: array[1..N] of integer;

begin

 randomize;

 for i := 1 to N do begin

   arr[i] := random(-10, 10);

   if arr[i] > 0 then inc(pol);

   if arr[i] = 0 then inc(nul);

   if arr[i] < 0 then begin

   t := True;

   inc(otr);

   end;

 end;

 writeln('Массив: ',arr);

 writeln('Положительных чисел: ', pol);

 writeln('Нулей: ', nul);

 writeln('Отрицательных чисел: ', otr);

 writeln(t);

end.

Answer 2

Ответ:

Отлажено с PascalABC.Net

Program Answer;//Создаем программу

//Создаем необходимые переменные

var Massive : array[0..4] of integer;//Массив сгенерированных чисел

var PositiveCnt, NegativeCnt, NeutralCnt :  

integer;//Количество чисел относящиеся к определенной группе

var t : boolean;//Определяет есть ли в массиве отрицательное четное число

begin//Начинаем цепочку действий программы

 Massive[0] := Random(-10, 10);//Генерируем случайное число от -10 до 10

 Massive[1] := Random(-10, 10);//Генерируем случайное число от -10 до 10

 Massive[2] := Random(-10, 10);//Генерируем случайное число от -10 до 10

 Massive[3] := Random(-10, 10);//Генерируем случайное число от -10 до 10

 Massive[4] := Random(-10, 10);//Генерируем случайное число от -10 до 10

 

 //Выводим полученные значения

 writeln('Список значений: ');

 writeln(Massive[0].ToString());

 writeln(Massive[1].ToString());

 writeln(Massive[2].ToString());

 writeln(Massive[3].ToString());

 writeln(Massive[4].ToString());

 

 //Вычисляем количество положительных значений

 if (Massive[0] > 0) then PositiveCnt := PositiveCnt + 1;

 if (Massive[1] > 0) then PositiveCnt := PositiveCnt + 1;

 if (Massive[2] > 0) then PositiveCnt := PositiveCnt + 1;

 if (Massive[3] > 0) then PositiveCnt := PositiveCnt + 1;

 if (Massive[4] > 0) then PositiveCnt := PositiveCnt + 1;

 

 //Вычисляем количество отрицательных значений

 if (Massive[0] < 0) then NegativeCnt := NegativeCnt + 1;

 if (Massive[1] < 0) then NegativeCnt := NegativeCnt + 1;

 if (Massive[2] < 0) then NegativeCnt := NegativeCnt + 1;

 if (Massive[3] < 0) then NegativeCnt := NegativeCnt + 1;

 if (Massive[4] < 0) then NegativeCnt := NegativeCnt + 1;

 

 //Вычисляем количество нулевых значений

 if (Massive[0] = 0) then NeutralCnt := NeutralCnt + 1;

 if (Massive[1] = 0) then NeutralCnt := NeutralCnt + 1;

 if (Massive[2] = 0) then NeutralCnt := NeutralCnt + 1;

 if (Massive[3] = 0) then NeutralCnt := NeutralCnt + 1;

 if (Massive[4] = 0) then NeutralCnt := NeutralCnt + 1;

 

 //Выводим количество положительных значений

 writeln('Количество положительных значений: ' + PositiveCnt.ToString());

 

 //Выводим количество отрицательных значений

 writeln('Количество отрицательных значений: ' + NegativeCnt.ToString());

 

 //Выводим количество нулевых значений

 writeln('Количество нулевых значений: ' + NeutralCnt.ToString());

 

 //Определяем есть ли в массиве четное, отрицательное число

 if (Massive[0] < 0) and (Massive[0] mod 2 = 0) then t := true

 else if (Massive[1] < 0) and (Massive[1] mod 2 = 0) then t := true

 else if (Massive[2] < 0) and (Massive[2] mod 2 = 0) then t := true

 else if (Massive[3] < 0) and (Massive[3] mod 2 = 0) then t := true

 else if (Massive[4] < 0) and (Massive[4] mod 2 = 0) then t := true;

 

 writeln('В массиве есть одно четное, отрицательное число? - ' +  

 t.ToString());

end.//Завершаем цепочку действий программы

Вывод:

Список значений:  

-9

9

-7

2

-9

Количество положительных значений: 2

Количество отрицательных значений: 3

Количество нулевых значений: 0

В массиве есть одно четное, отрицательное число? - False

Спасибо за интересное задание!

Answer 3

Вот решение задач на языке программирования Pascal:

pascalCopy code
program Task1_2;

const
  N = 10; // Количество случайных чисел
  MinValue = -10; // Минимальное значение
  MaxValue = 10; // Максимальное значение

var
  arr: array[1..N] of integer;
  i, positiveCount, negativeCount, zeroCount: integer;
  t: boolean;

begin
  randomize; // Инициализация генератора случайных чисел

  // Заполняем массив случайными числами
  for i := 1 to N do
    arr[i] := random(MaxValue - MinValue + 1) + MinValue;

  // Инициализируем счетчики
  positiveCount := 0;
  negativeCount := 0;
  zeroCount := 0;

  // Проверяем каждый элемент массива
  for i := 1 to N do
  begin
    writeln('Элемент ', i, ': ', arr[i]);

    if arr[i] > 0 then
      positiveCount := positiveCount + 1
    else if arr[i] < 0 then
      negativeCount := negativeCount + 1
    else
      zeroCount := zeroCount + 1;
  end;

  // Выводим результаты
  writeln('Количество положительных элементов: ', positiveCount);
  writeln('Количество отрицательных элементов: ', negativeCount);
  writeln('Количество нулевых элементов: ', zeroCount);

  // Проверяем наличие отрицательного четного числа
  t := false;
  for i := 1 to N do
  begin
    if (arr[i] < 0) and (arr[i] mod 2 = 0) then
    begin
      t := true;
      break;
    end;
  end;

  if t then
    writeln('В массиве есть отрицательное четное число.')
  else
    writeln('В массиве нет отрицательного четного числа.');

  readln;
end.

Эта программа сначала генерирует массив случайных чисел, затем считает количество положительных, отрицательных и нулевых элементов и выводит их на экран. После этого программа проверяет наличие отрицательного четного числа в массиве и устанавливает значение переменной t в соответствии с результатом проверки.