Question

Решите, пожалуйста, в паскале. 1) Одномерный массив из 10 элементов задан датчиком случайных чисел на интервале от -1 до 6. Найти произведение квадратов отрицательных элементов массива, массив вывести в строку. 2) Одномерный массив задан формулой A[i]=21-1. Найти полу сумму элементов массива.

Answer 1

1 задача
var a, b, s, i, k:integer;
z:array[1..10] of integer;
begin
s:=1;
For i:=1 to 10 do
begin
z[i]:=random(16)-10;
if z[i]<0 then
begin
k:=sqr(z[i]);
s:=s*k;
end;
end;
For i:=1 to 10 do
begin
write (z[i], ' ');
end;
writeln ();
writeln ('Произведение квадратов равно ', s);
end.

Answer 2

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

1) Одномерный массив из 10 элементов задан датчиком случайных чисел на интервале от -1 до 6. Найти произведение квадратов отрицательных элементов массива, массив вывести в строку.

program Task1;

var
  arr: array[1..10] of integer;
  product: integer;
  i: integer;

begin
  // Инициализация массива случайными числами от -1 до 6
  randomize;
  for i := 1 to 10 do
    arr[i] := random(8) - 1;

// Вывод массива
  writeln('Массив: ');
  for i := 1 to 10 do
    write(arr[i], ' ');

// Вычисление произведения квадратов отрицательных элементов
  product := 1;
  for i := 1 to 10 do
  begin
    if arr[i] < 0 then
      product := product * sqr(arr[i]);
  end;

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

end.

2) Одномерный массив задан формулой A[i] = 21 - i. Найти полусумму элементов массива.

program Task2;

var
  arr: array[1..10] of integer;
  halfSum: real;
  i: integer;

begin
  // Инициализация массива формулой A[i] = 21 - i
  for i := 1 to 10 do
    arr[i] := 21 - i;

// Вывод массива
  writeln('Массив: ');
  for i := 1 to 10 do
    write(arr[i], ' ');

// Вычисление полусуммы элементов массива
  halfSum := 0;
  for i := 1 to 10 do
    halfSum := halfSum + arr[i];

halfSum := halfSum / 2;

// Вывод результата
  writeln;
  writeln('Полусумма элементов массива: ', halfSum);

end.

Обратите внимание, что в первой задаче использованы целочисленные значения для элементов массива, так как произведение квадратов отрицательных элементов может быть большим целым числом. Во второй задаче используется вещественное число для переменной `halfSum`, так как это может быть дробное значение.