Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
mugenovak
25.03.2021 18:08 •
Информатика
Найти среднее арифметическое значение элементов заданного массива размером 15. преобразовать исходный массив, вычитая из каждого элемента найденное среднее значение turbo pascal
Показать ответ
Ответ:
MaxWatt
10.07.2020 13:47
Var
a: array[1..15] of real;
r: real;
n, i: integer;
begin
// заполнение
for i:=1 to 15 do
begin
a[i] := i;
write(a[i], ' ');
end;
for i:=1 to 15 do
begin
r := r + a[i];
n := n + 1;
end;
r := r / n;
writeln;
writeln('Среднее ариф. ', r);
// вывод
for i := 1 to 15 do
begin
a[i] := a[i] - r;
write(a[i], ' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kenetic213232
10.09.2022 08:51
Найти сумму 15-ти членов рядов, начиная со второго, общий член которого an= n^lnn/(lnn)^n, где n1=2...
Lizkic
10.09.2022 08:51
Написать программу которая выводит одно число на экран, ели оно больше 2а...
linasysueva01
14.11.2021 05:30
Сколько среди чисел от 5584 до 6654 (включительно) таких чисел, для которых выполняются одновременно два свойства: они простые их сумма цифр четна...
Milki0Way0
27.11.2022 03:17
Определите значение переменных после выполнения алгоритмов а:=9 b:=a mod 5 b:=b*10 a:=b div 5 -3 a:=a+b...
каринка191
22.03.2022 13:08
Write a python program which compares two numbers A and B. Print if A is greater than B Print if A is less than B Print = if A and B are equal , найдись солнце которое...
GOKAS
05.09.2021 16:47
Автомобиль 1 час пути ехал со скоростью 62 км/ч, следующие 1,5 часа – 75 км/час, а последние 2,5 часа – 58 км/ч. С какой средней скоростью ехал автомобиль?...
Fredbreyn
17.01.2020 10:45
Какой алгоритм использован в данной программа? а=int(input( a= )) b=int(input( b= )) If a b: max=a else: max=b print(:max= ,max)...
DSenTinor1
10.03.2020 09:02
Вряд выписаны в порядке возрастания числа, делящиеся на 9: 9, 18, 27, 36, …. под каждым числом этого ряда записана сумма его цифр. на каком месте в ряду впервые встретится число...
Oooooooooooooool
10.03.2020 09:02
Радиус круга 10 см. найдите площадь круга. ответ округлите до единицы. решить...
Niger0000rt
10.03.2020 09:02
Найдите корни квадратного трехчлена: х^2-2х-4. полное решение, если можно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..15] of real;
r: real;
n, i: integer;
begin
// заполнение
for i:=1 to 15 do
begin
a[i] := i;
write(a[i], ' ');
end;
for i:=1 to 15 do
begin
r := r + a[i];
n := n + 1;
end;
r := r / n;
writeln;
writeln('Среднее ариф. ', r);
// вывод
for i := 1 to 15 do
begin
a[i] := a[i] - r;
write(a[i], ' ');
end;
end.