Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Матрицы Дана символьная матрица размером A(n,m), n<=8, m<=12. Требуется получить вектор В(m) из ну-лей и единиц такой, что bi=1 тогда и только тогда, когда i-ый столбец матрицы содержит символов * не меньше чем пробелов. https://www.cyberforum.ru/ turbo-pascal/ thread1026012.html	Упорядочить по убыванию элементы каждого столбца матрицы Turbo Pascal Помогите пожалуйста!!! Нужно составить программу упорядочивающую по убыванию элементы каждого столбца матрицы С. Заполнение массива осуществить с клавиатуры. Заранее огромное спасибо!
Turbo Pascal При поступлении в вуз абитуриенты, получившие “2” на первом экзамене, ко второму не допускаются. В массиве записаны все оценки экзаменующихся полученн https://www.cyberforum.ru/ turbo-pascal/ thread1026005.html При поступлении в вуз абитуриенты, получившие “2” на первом экзамене, ко второму не допускаются. В массиве записаны все оценки экзаменующихся полученные на первом экзамене. Подсчитать сколько студентов сдали первый экзамен на “5”, на “4”, на “3”, и сколько не допущено ко второму экзамену.	Turbo Pascal Блок-схемы . Паскаль. Код есть Здравствуйте, нужно составить блок-схему для данного кода. Спасибо program usl; var z,x,y:integer; begin z:=1; if (0<y) and (y<x) then z:=x; if (y<x) and (x<0) then z:=y; https://www.cyberforum.ru/ turbo-pascal/ thread1025992.html
Turbo Pascal Упаковка строки Доброго времени суток всем. Прошу помощи в решении задачи: Будем рассматривать только строки, состоящие из латинских букв и арабских цифр. Например, рассмотрим строку AAAAbCCCCC111dddd . Длина этой строки 17. Поскольку строка состоит только из латинских букв и арабских цифр, повторяющиеся символы могут быть удалены и заменены числами, определяющими количество повторений. Арабские цифры при...	Turbo Pascal Составить программу которая записывает в файл c:\lang\prim_dat.txt 50 случайных чисел в диапазоне от 0.30 https://www.cyberforum.ru/ turbo-pascal/ thread1025973.html Составить программу которая записывает в файл c:\lang\prim_dat.txt 50 случайных чисел в диапазоне от 0..30.
Turbo Pascal Решение задачи Коши Решить задачу Коши для ОДУ 1-го порядка методом Рунге-Кутта 4-го порядка. Сама задача на фото, именно ее и надо составить для Turbo Pascal. На фото справа примерная работа, что в ней стоит отредактировать , что бы получить нужное мне решение. https://www.cyberforum.ru/ turbo-pascal/ thread1025970.html	Строки Turbo Pascal Дана строка длиной не более 40 символов. Слова в строке разделены одним пробелом. Последний символ – «.». Удалить из строки слова длиной не более 3-х символов. Нужно написать программу без readkey.
Turbo Pascal рекурсивный алгоритм Разработать рекурсивный алгоритм и программу решенния задачи, в которой вычислить: f(1)+f(2)+...+f(n)=1/(n+5)! Ввод исходных данных организовать из файла. Вывод-на экран. https://www.cyberforum.ru/ turbo-pascal/ thread1025924.html	Turbo Pascal Сортировка массива целых чисел A(n) по убыванию(используя метод обменная сортировка) Помогите написать программу для сортировки массива целых чисел A(n) по убыванию(используя метод обменная сортировка). Или хотя бы без этого метода. https://www.cyberforum.ru/ turbo-pascal/ thread1025918.html
метод пошаговой детализации Turbo Pascal Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой отсортировать одномерный массив a, состоящий из целых чисел в порядке убывания методом "выбора". В сортировке должны учавствовать только элементы от 1 до N-1. Число N, исходные данные массива вводятся с клавиатуры.	Turbo Pascal Сортировочка Здравствуйте помогите решить след. задачу: Разработать приложение, содержащее процедуры, реализующие основные операции над таблицами: формирование таблицы, сортировка, вывод таблицы. Добавить сортировку методом естественного слияния. Вот что есть : Program Test; Uses Crt; const Nmax=100; Type Rec=Record https://www.cyberforum.ru/ turbo-pascal/ thread1025896.html

_Developer

121 / 87 / 90

Регистрация: 30.12.2012

Сообщений: 511

02.12.2013, 19:37

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива. - Turbo Pascal - Ответ 5423899

02.12.2013, 19:37. Показов 6768. Ответов 3

Метки (Все метки)

Ответ

Pascal

var
  a: array[1..20] of integer;
  i, sum, sred: integer;
 
begin
  Randomize;
  write('Массив: ');
  for i := 1 to 20 do 
  begin
    a[i] := Random(-150, 300);
    write(a[i]:5);
    sred := sred + a[i];
  end;
  sred := Trunc(sred / 20);
  writeln;
  writeln('Среднее арифметическое: ', sred);
  for i := 1 to 20 do
    if a[i] < sred then
      Inc(sum, a[i]);
  writeln('Сумма: ', sum);
end.

Вернуться к обсуждению:
Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива. Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

02.12.2013, 19:37

Готовые ответы и решения:

Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива
Помогите пожалуйста найти в чем ошибка? Пишет что арифметическое переполнение! Задание: Найти сумму...

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

Заменить все элементы массива, которые меньше среднего арифметического значения всех элементов
Помогите, пожалуйста, правильно написать программу. Я написал код, но он не запускается. ...

Найти максимальный МАХ из тех элементов А, которые меньше среднего арифметического С всех элементов А
1.Массив А(20) заполнить целыми случайными числами из диапазона от 1 до 100. Найти максимальный МАХ...

	02.12.2013, 19:37

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

02.12.2013, 19:37

Помогаю со студенческими работами здесь

Найти сумму всех элементов массива целых чисел которые меньше среднего арифметического
Помогите пожалуйста: 1) Найти сумму всех элементов массива целых чисел, которые меньше среднего...

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

Одномерный массив. Найти сумму всех элементов, которые меньше среднего арифметического
помогите пожалуйста решить Найти сумму всех элементов массива целых чисел, которые меньше...

Найти номер последнего элемента массива, который меньше среднего арифметического всех элементов
Найти номер последнего элемента, который меньше среднего арифметического всех элементов. знаю, что...

Наверх