Question

Задача на паскале.Задан массив А размерности N случайным образом.Найти:1) произведение отрицательных элементов2) количество элементов, кратных 3

Answer 1

program massiv;

var

a,b,i,n,d,e,s:integer;

m:array[1..n] of integer;

begin

readln(n);

for i:=1 to n do

readln(m[i]);

a:=1;

b:=0;

for i:=1 to n do

begin

if m[i]<0 then a:=a*m[i];

if (m[i] mod 3 = 0) then b:=b+1;

end;

writeln(a,'    ',b);

end.

Answer 2

Program p1;
Const N=10;
Var A:array[1..N] of integer;
proizvedenie,i:integer;
Begin
proizvedenie:=1;
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i]<0 then
proizvedenie:=proizvedenie*A[i];
Writeln('Произведение = ', proizvedenie);
End.

 

 

 

Program p2;
Const N=10;
Var A:array[1..N] of integer;
kolvo,i:integer;
Begin
For i:= 1 to n do
Begin
A[i]:=random(101)-50;
Write(A[i],' ');
End;
Writeln;
For i:= 1 to n do
If a[i] mod 3=0 then
kolvo:=kolvo+1;
Writeln('Кратных трём элементов ',kolvo, ' штук');
End.

Answer 3

Задача на Pascal: Нахождение произведения отрицательных элементов и количества элементов, кратных 3

Для решения данной задачи на Pascal, мы можем использовать циклы и условные операторы. Вот пример решения:

program FindProductAndCount;
const
  N = 10; // Размерность массива
var
  A: array[1..N] of Integer;
  i: Integer;
  product: Integer;
  count: Integer;
begin
  // Заполняем массив случайными числами
  Randomize;
  for i := 1 to N do
  begin
    A[i] := Random(100) - 50; // Случайное число от -50 до 49
  end;

// Инициализируем переменные
  product := 1;
  count := 0;

// Находим произведение отрицательных элементов и количество элементов, кратных 3
  for i := 1 to N do
  begin
    if A[i] < 0 then
      product := product * A[i];
    if A[i] mod 3 = 0 then
      count := count + 1;
  end;

// Выводим результаты
  writeln('Произведение отрицательных элементов: ', product);
  writeln('Количество элементов, кратных 3: ', count);
end.

В этом примере мы создаем массив `A` размерности `N` и заполняем его случайными числами от -50 до 49. Затем мы инициализируем переменные `product` и `count` для хранения произведения отрицательных элементов и количества элементов, кратных 3, соответственно.

Затем мы используем цикл `for` для прохода по массиву и проверки каждого элемента. Если элемент отрицательный, мы умножаем его на текущее значение `product`. Если элемент кратен 3, мы увеличиваем значение `count` на 1.

Наконец, мы выводим результаты с помощью процедуры `writeln`.

Таким образом, этот код на Pascal позволит вам найти произведение отрицательных элементов и количество элементов, кратных 3 в случайном массиве размерности `N`.