Question

2. Составить подпрограмму нахождения суммы элементов массива, созданного с помощью датчика случайных чисел, кратных данному числу. Вычислить количество положительных и отрицательных элементов в данном массиве. В ТУРБО ПАСКАЛЕ 

Answer 1

Program example_dom; 
var col_pol,col_otr,i,n,k,s:integer; 
a:array[1..100] of integer; 
Begin 
Randomize; writeln('Введите размерность: ');readln(n); 
For i:=1 to n do 
Begin 
a[i]:=-50+random(100); 
write(a[i]:4); 
end; 
s:=s+a[i]; 
inc(k); 
col_pol:=0; 
col_otr:=0; 
for i:=1 to n do 
begin 
if a[i]>0 then col_pol:=col_pol+1 
else col_otr:=col_otr+1; 
end; 
writeln('сумма элементов массив = ',s); 
writeln('количество положительных элементов=',col_pol); 
writeln('количество отрицательных элементов=',col_otr); 
readln; 
End.

Answer 2

Вот пример программы на Turbo Pascal, которая выполняет задачу по нахождению суммы элементов массива, кратных заданному числу, и подсчитывает количество положительных и отрицательных элементов в массиве:

pascalCopy code
program SumAndCount;
const
  N = 10;  // Размер массива
var
  arr: array[1..N] of integer;
  i, x, sum, posCount, negCount: integer;

procedure FillArrayRandomly;
begin
  Randomize;  // Инициализация генератора случайных чисел
  for i := 1 to N do
    arr[i] := Random(21) - 10;  // Генерация случайных чисел от -10 до 10
end;

begin
  FillArrayRandomly;

  // Ввод числа, кратного которому будем искать
  Write('Введите число, кратные которому будем искать: ');
  Readln(x);

  sum := 0;
  posCount := 0;
  negCount := 0;

  for i := 1 to N do
  begin
    if (arr[i] mod x = 0) then
      sum := sum + arr[i];

    if arr[i] > 0 then
      posCount := posCount + 1
    else if arr[i] < 0 then
      negCount := negCount + 1;
  end;

  writeln('Сумма элементов, кратных ', x, ': ', sum);
  writeln('Количество положительных элементов: ', posCount);
  writeln('Количество отрицательных элементов: ', negCount);
end.

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