Question

1. Найти сумму 1-го, 3-го и 5-го элементов массива A: arrat [1..15] of real. 2. Найти и вывести на экран произведение элементов массива из 10 чисел, кратных 7. Массив заполняется случайными числами. СОСТАВЬТЕ ПОЖАЛУЙСТА ПРОГРАММЫ!!!

Answer 1

1.
vari:integer;
a:array [1..15] of real;
rez:real;
begin
for i:=1 to 15 do begin
readln(a[i]);
end; 
rez:=a[1]+a[3]+a[5];
writeln(rez);
end.
2.
const z = 10; // Размер массива 
var  a: array [1..z] of integer;
 i,rez: integer; 
begin
rez:=1;
for i:=1 to z do begin
a[i] := Random(100);
end;
writeln('Элементы массива: ');
for i:=1 to z do begin   
write(a[i],' ');   
if (a[i] mod 7 = 0) then   
rez:=rez*a[i];
end;
writeln(' ');
if (rez <> 1)
 then
writeln(rez)
else
writeln('Нет элементов, кратных 7');
end.

Answer 2

1. Найти сумму 1-го, 3-го и 5-го элементов массива A: array [1..15] of real.

Программа на языке программирования Pascal для решения данной задачи может выглядеть следующим образом:

program SumOfElements;
var
  A: array [1..15] of real;
  sum: real;
begin
  // Заполнение массива A случайными числами
  randomize;
  for i := 1 to 15 do
    A[i] := random;

// Вычисление суммы 1-го, 3-го и 5-го элементов массива A
  sum := A[1] + A[3] + A[5];

// Вывод результата на экран
  writeln('Сумма 1-го, 3-го и 5-го элементов массива A: ', sum);
end.

2. Найти и вывести на экран произведение элементов массива из 10 чисел, кратных 7. Массив заполняется случайными числами.

Программа на языке программирования Pascal для решения данной задачи может выглядеть следующим образом:

program ProductOfMultiples;
var
  A: array [1..10] of integer;
  product: integer;
  i, count: integer;
begin
  // Заполнение массива A случайными числами
  randomize;
  for i := 1 to 10 do
    A[i] := random(100);

// Вычисление произведения элементов массива A, кратных 7
  product := 1;
  count := 0;
  for i := 1 to 10 do
  begin
    if (A[i] mod 7 = 0) then
    begin
      product := product * A[i];
      count := count + 1;
    end;
  end;

// Вывод результата на экран
  if (count > 0) then
    writeln('Произведение элементов массива A, кратных 7: ', product)
  else
    writeln('В массиве A нет элементов, кратных 7.');
end.

Обратите внимание, что в обеих программах используется функция `randomize`, которая инициализирует генератор случайных чисел. Это необходимо для получения различных случайных чисел при каждом запуске программы.