Найти среднее значение элементов заданного вещественного массива размером 10

@Викочка3115 · Регистрация: 16.08.2016

Author24 — интернет-сервис помощи студентам

Найти среднее значение элементов заданного вещественного массива размером 10. Элементы массива ввести с клавиатуры. Преобразовать исходный массив, вычитая из каждого элемента среднее значение. Преобразованный массив вывести на экран.

@Cuellius · 19.09.2017, 22:10

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program z1;
var 
  a : array[1..10] of real;
  i : integer;
  m : real;
begin
  for i := 1 to 10 do read(a[i]);
  m := 0;
  for i := 1 to 10 do m := m + a[i];
  m := m / 10;
  writeln;
  writeln('middle = ', m:0:6);
  for i := 1 to 10 do a[i] := a[i] - m;
  for i := 1 to 10 do write(a[i]:0:6, ' ');
end.

@bormant · 20.09.2017, 11:55

Небольшая переработка:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const n=10; D=4;
var 
  a: array [1..n] of Real;
  i: Integer;
  m: Real;
begin
  for i := 1 to n do Read(a[i]); ReadLn;
  {m := 0;}
  for i := 1 to n do m := m + a[i];
  m := m / n;
  WriteLn;
  WriteLn('average = ', m:0:D);
  for i := 1 to n do a[i] := a[i] - m;
  for i := 1 to n do Write(' ',a[i]:0:D); WriteLn;
end.

и еще одна:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const n=10; D=4;
var 
  a: array [1..n] of Real;
  i: Integer;
  m: Real;
begin
  {m := 0;}
  for i := 1 to n do begin
    Read(a[i]); m := m+a[i];
  end; ReadLn;
  m := m / n;
  WriteLn;
  WriteLn('average = ', m:0:D);
  for i := 1 to n do begin
    a[i] := a[i] - m; Write(' ',a[i]:0:D);
  end; WriteLn;
end.

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .	Микросервис на Python с FastAPI и Docker ArchitectMsa 23.04.2025 В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel Reangularity 23.04.2025 Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .	Максимальная производительность C#: Span<T> и Memory<T> stackOverflow 22.04.2025 Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .	JWT аутентификация в Java Javaican 21.04.2025 JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .	Спринты Agile: Планирование, выполнение, ревью и ретроспектива EggHead 21.04.2025 Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .	Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .

@Викочка3115 0 / 0 / 0 Регистрация: 16.08.2016 Сообщений: 133

	Найти среднее значение элементов заданного вещественного массива размером 10 19.09.2017, 21:34. Показов 3851. Ответов 2 Метки нет (Все метки) Найти среднее значение элементов заданного вещественного массива размером 10. Элементы массива ввести с клавиатуры. Преобразовать исходный массив, вычитая из каждого элемента среднее значение. Преобразованный массив вывести на экран. 0

Опции темы

Найти среднее значение элементов заданного вещественного массива размером 10

Решение