Question

Составить программу, которая вычисляет среднеарифметическое чисел, кратных 3 в диапазоне от 1 до 200. (язык pascal) пожалуйста...

Answer 1

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,200); a.Println;
  Writeln('Ср.арифметическое кратных 3: ',
      a.Where(t->t mod 3=0).DefaultIfEmpty.Average)
end.

Пример
n= 15
185 103 5 33 116 167 189 36 79 110 188 12 26 11 10
Ср.арифметическое кратных 3: 67.5

Answer 2

Если всё-таки нужно среднее арифметическое всех чисел, кратных 3, в диапазоне от 1 до 200

var i,s,k:integer;
begin
for i:=1 to 200 do
if i mod 3 = 0 then begin
s:=s+i;
k:=k+1
end;
writeln ('Среднее арифметическое чисел, кратных 3, в диапазоне от 1 до 200 равно: ',s/k)
end.

Answer 3

Конечно, вот пример программы на языке Pascal, который вычисляет среднее арифметическое чисел, кратных 3, в диапазоне от 1 до 200:

arduinoCopy code
program AverageMultipleOf3;

var
  i, sum, count: integer;
  average: real;

begin
  sum := 0;
  count := 0;
  
  for i := 1 to 200 do
  begin
    if (i mod 3 = 0) then // проверяем, кратно ли число 3
    begin
      sum := sum + i; // добавляем число к сумме
      count := count + 1; // увеличиваем счетчик чисел
    end;
  end;
  
  if (count > 0) then // проверяем, что были найдены числа, кратные 3
  begin
    average := sum / count; // вычисляем среднее арифметическое
    writeln('Среднее арифметическое чисел, кратных 3, в диапазоне от 1 до 200: ', average:0:2);
  end
  else
    writeln('Нет чисел, кратных 3, в диапазоне от 1 до 200.');
    
  readln;
end.

Программа перебирает числа от 1 до 200, проверяет каждое число на кратность 3, и если число кратно 3, добавляет его к сумме и увеличивает счетчик чисел. После окончания перебора, программа вычисляет среднее арифметическое, если были найдены числа, кратные 3, и выводит его на экран. Если числа, кратные 3, не были найдены, программа сообщает об этом.