Question

Дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы: a) массив состоял из 15 элементов вещественного типа; b) значения элементов массива должны меняться в интервале от 0 до 5; c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма. Program massiv; const n=10; Var a: array [1..n] of integer; s,i integer; Begin writeln (‘ исходный массив.‘); For i:= 1 to n do begin a [ i] := random (10); write (‘a[‘i'] =', a[i], ''); end; s:=0; For i:= 1 to n do s:= s+a[i]; Writeln (‘ сумма всех элементов массива S=‘, s); end. 2. Вводится одномерный массив размерностью 100 для обработки данной программой. Что делает программа? Program pr; Var х: array [1..100] of integer; i, s: integer; begin s: =0; for i:=l to 100 do begin readln (x [i]) ; if i mod 2=0 then s:=s+x[i] ; end; writeln (s) ; end. Данная программа определяет: 1.сумму значений элементов массива с четными индексами; 2.сумму значений отрицательных элементов; 3.количество элементов, значение которых четное число; 4.среднее арифметическое значений элементов массива с четными индексами.

Answer 1

1.Program massiv;

const n=15;

Var a: array [1..n] of integer;

s,i integer;

Begin

writeln (‘ исходный массив.‘);

For i:= 1 to n do

begin

a [ i] := random (6);

write (‘a[‘i'] =', a[i], '');

end;

s:=0;

For i:= 1 to n do

s:= s*a[i];

Writeln (‘ сумма всех элементов массива S=‘, s);

end.

2.1

Answer 2

Для изменения первой программы так, чтобы массив состоял из 15 элементов вещественного типа, значения элементов менялись в интервале от 0 до 5, и результатом было произведение всех элементов массива, вы можете внести следующие изменения:

pascalCopy code
Program massiv;

const
  n = 15; // Увеличили размер массива до 15
  minValue = 0;
  maxValue = 5;

Var
  a: array [1..n] of real; // Изменили тип массива на вещественный
  i: integer;
  product: real; // Изменили переменную для хранения произведения

Begin
  writeln('Исходный массив:');
  product := 1.0; // Инициализируем произведение

  for i := 1 to n do
  begin
    a[i] := minValue + random * (maxValue - minValue); // Генерация случайных вещественных чисел
    write('a[', i, '] = ', a[i]:0:2, ' '); // Вывод с округлением до 2 знаков после запятой
    product := product * a[i]; // Умножение элементов массива
  end;

  writeln;
  writeln('Произведение всех элементов массива: ', product:0:2); // Вывод произведения с округлением
End.

Теперь программа создает массив из 15 вещественных чисел в интервале от 0 до 5 и находит их произведение.

Что касается второй программы, ваше описание верно:

1. Сумма значений элементов массива с четными индексами.
2. Сумма значений отрицательных элементов.
3. Количество элементов, значение которых четное число.
4. Среднее арифметическое значений элементов массива с четными индексами.

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