Question

массив А(30) заполнить целыми случайными числами из (-7;25) вычислить полупроизведение всех положительных элементов. В Паскале. Нужно прям срочно. Буду очень благодарен.

Answer 1

Program task1;
const  n = 30;
var  a :array [1..n] of integer; 
 i, p :integer; 
pr :real;
begin
 randomize; 
 for i:= 1 to n do   
a[i]:= random(33)-7; 
p:= 1;  for i:= 1 to n do   
if a[i] > 0 then     
p:= p * a[i]; 
pr:= p/2; 
writeln(pr);
end.

program task2;
const  n = 30;
var  a: array [1..n] of integer; 
i, sum, max, min: integer; 
sr: real;
begin
randomize; 
for i := 1 to n do   
a[i] := random(33) - 7;   
sum:= 0; 
 for i := 1 to n do   
if a[i] >= 0 then     
sum:= sum + sqr(a[i]); 
min:= a[1];  max:= a[1]; 
for i := 1 to n do  begin   
if a[i] > max then max:= a[i];   
if a[i] < min then min:= a[i]; 
end; 
sr:= (max + min)/2; 
writeln('Сумма кадратов: ',sum); 
writeln('Среднее арифметическое: ',sr);  
end.

Answer 2

Привет! Вот решение задачи на языке Pascal:

lessCopy code
program SemiProduct;

var
  A: array [1..30] of integer;
  SemiProd: integer;
  i: integer;

begin
  SemiProd := 1;
  Randomize; // инициализация генератора случайных чисел
  for i := 1 to 30 do
  begin
    A[i] := Random(33) - 7; // заполнение массива случайными числами
    if A[i] > 0 then SemiProd := SemiProd * A[i]; // вычисление полупроизведения
  end;
  writeln('Массив A:');
  for i := 1 to 30 do
    write(A[i], ' '); // вывод массива на экран
  writeln;
  writeln('Полупроизведение всех положительных элементов массива A равно ', SemiProd);
  readln;
end.

В данном решении используется цикл for для заполнения массива A случайными числами в диапазоне (-7;25) с помощью функции Random. Затем в том же цикле вычисляется полупроизведение всех положительных элементов массива. Наконец, результат выводится на экран с помощью writeln.

Надеюсь, это поможет! Если у вас есть какие-либо вопросы, пожалуйста, не стесняйтесь задавать их мне.