Question

ДАЮ 54 БАЛА Массив из 13 положительных элементов заполнить целыми случайными числами из интервала (-5, 5) Найти: Сумму или количество (положительных, отрицательных чисел) ПОЖАЛУЙСТА НАПИШИТЕ В ПАСКАЛЕ

Answer 1

program bpab;

uses

crt;

var

i, sp, so, kp, ko: integer;

var

a: array [1..13] of integer;

begin

sp := 0;

so := 0;

kp := 0;

ko := 0;

for i := 1 to 13 do

begin

a[i] := random(11) - 5;

if a[i] >= 0 then

begin

sp := sp + a[i];

kp := kp + 1;

end

else

begin

so := so + a[i];

ko := ko + 1;

end;

end;

writeln('Исходный массив:');

for i := 1 to 13 do

writeln(a[i]);

writeln;

writeln('Сумма положительных: ', sp);

writeln('Сумма отрицательных: ', so);

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

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

readln;

end.

Answer 2

Конечно, вот пример кода на Pascal, который создает массив из 13 положительных элементов, заполненных целыми случайными числами из интервала (-5, 5), и затем находит сумму положительных и количество отрицательных чисел:

pascalCopy code
program ArrayOperations;

const
  N = 13;

var
  arr: array[1..N] of integer;
  i, positiveSum, negativeCount: integer;

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

  // Заполнение массива случайными числами
  for i := 1 to N do
    arr[i] := random(11) - 5; // Генерация чисел из интервала (-5, 5)

  positiveSum := 0;
  negativeCount := 0;

  // Вычисление суммы положительных и подсчет отрицательных чисел
  for i := 1 to N do
  begin
    if arr[i] > 0 then
      positiveSum := positiveSum + arr[i]
    else if arr[i] < 0 then
      negativeCount := negativeCount + 1;
  end;

  writeln('Массив случайных чисел:');
  for i := 1 to N do
    write(arr[i], ' ');

  writeln;
  writeln('Сумма положительных чисел:', positiveSum);
  writeln('Количество отрицательных чисел:', negativeCount);

end.

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