Question

Одномерный целочисленный массив из 7 ячеек заполнен случайными числами в диапазоне от 0 до 15, выводится на экран в столбик с указанием индекса элемента. Найти среднее арифметическое тех элементов массива, которые больше 3 и меньше 7. Ответ выводится на экран СОСТАВИТЬ ПРОГРАММУ НА ЯЗЫКЕ PASCAL!

Answer 1

program massive;

const

 n=7;

var

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

 i,k,s: integer;

 m:real;

begin

 randomize;

 s:=0;

 k:=0;

 for i:=1 to n do

 begin

   a[i]:=random(15);

   write(a[i],' ');

 end;

 writeln;  

 for i:=1 to n do

   if (a[i]>3) and (a[i]<7) then

     begin  

       k:=k+1;

       s:=s+a[i];

     end;

 m:=s/k;

 writeln('Среднее арифметическое: ',m:0:2);    

end.

Answer 2

Конечно! Вот пример программы на языке Pascal, который решает данную задачу:

pascalCopy code
program AverageCalculation;

var
  arr: array[1..7] of Integer;
  i, sum, count: Integer;
  average: Real;

begin
  Randomize;

  // Заполнение массива случайными числами
  for i := 1 to 7 do
    arr[i] := Random(16); // Генерация чисел от 0 до 15

  // Вывод массива на экран
  for i := 1 to 7 do
    Writeln('arr[', i, '] = ', arr[i]);

  // Вычисление среднего арифметического
  sum := 0;
  count := 0;
  for i := 1 to 7 do
  begin
    if (arr[i] > 3) and (arr[i] < 7) then
    begin
      sum := sum + arr[i];
      count := count + 1;
    end;
  end;

  if count > 0 then
  begin
    average := sum / count;
    Writeln('Среднее арифметическое: ', average);
  end
  else
    Writeln('Нет элементов, удовлетворяющих условию.');

  Readln;
end.

Программа начинается с объявления переменных, включая массив arr из 7 элементов, переменные i, sum, count и average.

Затем мы используем функцию Randomize для инициализации генератора случайных чисел.

Далее мы заполняем массив arr случайными числами от 0 до 15 и выводим его на экран, указывая индекс каждого элемента.

Затем мы выполняем цикл для вычисления суммы и количества элементов, которые удовлетворяют условию (больше 3 и меньше 7). Если есть хотя бы один элемент, удовлетворяющий условию, мы вычисляем среднее арифметическое и выводим его на экран. В противном случае, если нет элементов, удовлетворяющих условию, выводится соответствующее сообщение.

В конце программы мы добавляем Readln, чтобы программа не закрывалась сразу после выполнения и оставалась открытой до нажатия клавиши Enter.