Question

Помогите написать программу на языке Паскаль для нахождения среднего значения из n введенных целых чисел от 10 до 100. Можете сразу вставить числа

Answer 1

var n,i,a,s:integer;

begin

write('n=');

readln(n);

s:=0;

writeln('Введите ',n,' целых чисел');

for i:=1 to n do

begin

 readln(a);

 if a<0 thn s:=s+a;

end;

write('Сумма отрицательных=',s);

end.

Answer 2

var

a,b,c,d,e:integer

begin

read(n);

for c:=1 to n

begin

read(a);

b:=a+b

e:=1+e

end;

write(b/e);

end.

Answer 3

Конечно! Вот пример программы на языке Паскаль для нахождения среднего значения из n введенных целых чисел от 10 до 100:

pascalCopy code
program CalculateAverage;

var
  n, i, num, sum: integer;
  average: real;

begin
  writeln('Введите количество чисел (n): ');
  readln(n);

  if n <= 0 then
  begin
    writeln('Некорректное значение для n. Пожалуйста, введите положительное число.');
    exit; // Выход из программы, если n некорректное.
  end;

  sum := 0;

  writeln('Введите ', n, ' целых чисел от 10 до 100: ');

  for i := 1 to n do
  begin
    readln(num);

    if (num < 10) or (num > 100) then
    begin
      writeln('Некорректное число. Пожалуйста, введите число от 10 до 100.');
      exit; // Выход из программы, если число некорректное.
    end;

    sum := sum + num;
  end;

  average := sum / n;

  writeln('Среднее значение: ', average:0:2);
end.

Вы можете запустить эту программу и ввести количество чисел (n) и сами числа, чтобы получить среднее значение. Программа проверяет, чтобы введенные значения были корректными (n положительное число, числа от 10 до 100), и выводит среднее значение с двумя знаками после запятой.