Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC вычислить по формуле https://www.cyberforum.ru/ pascalabc/ thread692399.html
решить без массива: Даны целое n>1 и вещественные числа x 1, x 2, ... ,x n . Вычислить: M = Σ x /n, D =sqrt(Σ(x - n)2/n-1 Добавлено через 2 часа 26 минут M=\sum x/n D=\sqrt{\sum...
Pascal ABC Разработать алгоритмы линейного и двоичного поиска всех рейсов с номерами меньшими, чем 100
2.Дан список, содержащий 10 записей, каждая из которых содержит четыре поля: 1 – номер рейса (натуральное число), 2 – пункт отправления (символьное поле длиной 20), 3- пункт назначения (символьное...
Pascal ABC Упорядочить массив записей по полю фамилия с помощью алгоритма сортировки вставками 1.Дан массив, состоящий из записей. Каждая запись содержит два поля: 1 - табельный номер (целое число в диапазоне от 0 до 9999) и 2 - фамилия (символьное поле длиной 30). Упорядочить массив записей... https://www.cyberforum.ru/ pascalabc/ thread692334.html Pascal ABC Сформировать массив В, каждый элемент которого равен символу с минимальным порядковым номером в таблице ASCII соответствующей строки https://www.cyberforum.ru/ pascalabc/ thread692323.html
Народ помогите пожалуйста. Который день не могу понять где косяк. Задание: Дан массив А из N строк длиной M. Сформировать массив В, каждый элемент которого равен символу с минимальным порядковым...
Pascal ABC Найти сумму квадратов n чисел, вводимых с клавиатуры
Найти сумму квадратов n -чисел, вводимых с клавиатуры. помогите написать программу. желательно через for
Pascal ABC Вычеркнуть в слове X все буквы, стоящие на нечётных местах после буквы "а" Напишите программу для вычеркивания в слове X всех букв, стоящих на нечётных местах после буквы "а". https://www.cyberforum.ru/ pascalabc/ thread692266.html
Pascal ABC Найти количество элементов, содержащихся в заданном файле 1. Дано имя файла целых чисел. Найти количество элементов, содержащихся в данном файле. Если файла с таким именем не существует, то вывести -1. Есть вопросы по этой задаче. 1)Какой должен быть... https://www.cyberforum.ru/ pascalabc/ thread692256.html Pascal ABC Найти произведение таких элементов, которые превосходят сумму всех предшествующих элементов.
Найти произведение таких элементов, которые превосходят сумму всех предшествующих элементов. Пример: -16 -5 20 -5 14 6 15 3 34; результат: (-16)*(-5)*(14)*(15)*(34)=571200.
Pascal ABC IOResult в Pascal ABC Говорит неизвестный идентификатор IOResult. Почему не могу понять. uses CRT; var f:file of Byte; kod:integer; name:string; begin clrscr; repeat https://www.cyberforum.ru/ pascalabc/ thread692216.html Pascal ABC Построить множество, включающее в себя компьютеры, которых нет ни на одной кафедре https://www.cyberforum.ru/ pascalabc/ thread692199.html
Задано множество типов компьютеров, которыми могут быть обеспечены кафедры института: IBM, PS/2, MAC, ISKRA, ELECTRONIKA, PRAVICA, PENTIUM, DEC. Известен набор машин на каждой кафедре (количество...
Составить новую строку из данных слов Pascal ABC
Добрый день! Не могу решить задачу;( Дана произвольная строка символов. Подсчитать количество слов оканчивающихся на букву "к"("К"). Составить новую строку из данных слов. Заранее спасибо!
Pascal ABC Просчитать сумму элементов вспомогательной диагонали, определите количество элементов https://www.cyberforum.ru/ pascalabc/ thread692149.html
Доброго времени суток! Возникла проблема с задачей: Дана матрица размером 7х7 элементов, случайным образом заполненная. Просчитать сумму элементов вспомогательной диагонали (i:=n-j+1), определите...
6044 / 2159 / 753
Регистрация: 10.12.2010
Сообщений: 6,007
Записей в блоге: 3
08.11.2012, 20:53 0

Нахождение среднего арифметического - Pascal ABC - Ответ 3671460

08.11.2012, 20:53. Показов 3014. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Megastervochka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  a:array[1..30] of integer;
  i,cnt:integer;
  sr:real;
begin
  {...}
  sr:=0;
  cnt:=0;
  for i:=1 to 30 do
  begin
    if (a mod 10)=8 then 
      begin
        sr:=sr+a[i];
        inc(cnt);
      end;
  end;
  sr:=sr/cnt;
  writeln(sr:0:4);
  readln;
end.


Вернуться к обсуждению:
Нахождение среднего арифметического Pascal ABC
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.11.2012, 20:53
Готовые ответы и решения:

Нахождение среднего арифметического и среднего геометрического двух чисел
Напишите программу для вычисления значения V по формуле V = V0 ( 3/2  - 1/2...

Нахождение среднего арифметического значения одномерного массива
Задача 1 написать программу которое находит среднего арифметического массива В размерностью 10...

Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического
В одномерном массиве целых чисел заменить все элементы, меньшие среднего арифметического,значением...

Составить процедуру вычисления среднего арифметического и среднего геометрического А и В
Составить процедуру вычисления среднего арифметического и среднего геометрического А и В. С ее...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.11.2012, 20:53
Помогаю со студенческими работами здесь

Циклы - вычисление среднего арифметического
Составить программу вычисления среднего арифметического всех двухзначных чисел, оканчивающихся на...

Определение среднего арифметического чисел последовательности
ребят, нужна помощь, не могу решить

Определить значение среднего арифметического массива
Здравствуйте! Вот моя задача, которую я попытался решить: "Определить значение среднего...

Нахождения среднего арифметического элементов массива
Разработайте программу для нахождения среднего арифметического элементов массива А, больших числа...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru