Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal Как вывести -n, не используя минус? https://www.cyberforum.ru/ pascal/ thread1075589.html
Как вывести -n, не используя минус? 		Pascal Разобрать код, который не компилируется
есть код. помогите разобраться в нем uses crt; var i,j, i1, j1, direction, direction1, tmp_i1, tmp_j1, tmp_i, tmp_j, n, number: integer; matrix : Array of integer; begin write('Vvedi...
Pascal Функция F(n) определена для целых положительных чисел следующим образом Функция F(n) определена для целых положительных чисел следующим образом: в (n div i), вместо i - 2 begin if n=1 then F:=1 else {?} begin sum:=1; {присваиваем сумме 2} https://www.cyberforum.ru/ pascal/ thread1075550.html Pascal Выяснить, есть ли одинаковые элементы в массиве https://www.cyberforum.ru/ pascal/ thread1075527.html
Имеется массив А из N произвольных чисел - А(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, решающую задачу в соответствии с вариантом. Выяснить, есть ли...
Определить все номера рейсов, типы самолетов и времена их вылета для заданного пункта назначения Pascal
В справочной аэропорта хранится расписание вылета самолета на следующие сутки. Для каждого рейса указаны его номер, тип самолета, пункт назначения, время вылета. Определить все номера рейсов, типы... 		Pascal Составить программу для вычисления промежуточных значений функции y(x) Составить программу для вычисления промежуточных значений функции y(x) (начальное и конечное вводятся с клавиатуры) в произвольной точке х. Значение х изменяется в пределах с шагом дельта х.... https://www.cyberforum.ru/ pascal/ thread1075208.html
Pascal Заменить пробелом все вхождения первого встретившегося символа Помогите, пожалуйста. Одномерный символьный массив длиной 300 элементов заполнить символами из файла, начиная с начала. С помощью процедуры заполнить новый одномерный символьный массив символами из... https://www.cyberforum.ru/ pascal/ thread1075152.html Координаты, опредиление секторов Pascal
итак, нам дано пары точек, которые можно соединить, например: (0;4) (3;4) (3;4) (6;2) (6;2) (6;0) (8;1) (8;0) {не обязательно в таком виде} соединять можно только те точки, которые введены...
Pascal Поиск подходящей по условию строки/столбца в матрице https://www.cyberforum.ru/ pascal/ thread1075091.html
Задача - "Проверить, все ли столбцы матрицы содержат хотя бы один положительный элемент, если не все, сообщить номер последнего такого столбца.". Решите, пожалуйста, с функциями. 		Pascal Вводим n. Нам нужно битовое представление этого числа Вводим n. Нам нужно битовое представление этого числа Как-то не получается у меня с этой темой https://www.cyberforum.ru/ pascal/ thread1075024.html
Pascal Задаём n и k. Нужно вывести n, где k-тый бит заменён на 1
Задаём n и k. Нужно вывести n, где k-тый бит заменён на 1. Знаю, что несложное задание, но чего-то не получается. Заранее спасибо! 		Pascal Сортировка файла Всем привет, собственно проблема у меня заключается в написании программы для сортировки данных в файле. Я уже много раз переписывал программу, но появлялись разные ошибки.. последняя версия у меня... https://www.cyberforum.ru/ pascal/ thread1074896.html
2018 / 1617 / 489
Регистрация: 31.05.2009
Сообщений: 3,005
20.01.2014, 01:34 0

Вектор. Среднее арифметическое значение элементов, стоящих на нечетных местах - Pascal - Ответ 5664089

20.01.2014, 01:34. Показов 1653. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено fenomen95 как решение

Решение

Цитата Сообщение от fenomen95 Посмотреть сообщение
дан вектор, имеющий n (1≤n≥100) целых элементов
Будем считать, что всё-таки (1 ≤ n ≤ 100)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

program ConsoleApp;
 
// --------------------       
  const maxLen = 100;
   
  var i, n: Integer; 
      s: Double;
      a: array [1..maxLen] of Integer;
   
begin
  Randomize;
  n := Random(maxLen) + 1;
  for i := 1 to n do begin
    a[i] := Random(100);
    Write(' ', a[i])    
  end;
  WriteLn;
  
  i := 1; s := 0;
  while i <= n do begin
    s := s + a[i]; i := i + 2
  end;    
  
  WriteLn('result: ', (s / n):0:5)
end.


Вернуться к обсуждению:
Вектор. Среднее арифметическое значение элементов, стоящих на нечетных местах Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 20.01.2014, 01:34
Готовые ответы и решения:

Найти среднее арифметическое элементов, стоящих на нечётных местах
Дан массив A(4), В(6). Найти среднее арифметическое элементов, стоящих на нечётных местах ...

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах
Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и определить...

Написать программу, находящую сумму элементов, стоящих на четных местах и максимум среди элементов, стоящих на нечетных местах.
Всем привет! Помогите, пожалуйста, решить две задачи по программированию. Задача 1: Задан массив...

Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арифметическое чисел, меньших заданного X
Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арефметическое чисел,...

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

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

Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и подсчитать количество чисел, меньших N
Есть задача &quot;Найти среднее арифметическое положительных чисел, стоящих на нечетных местах, и...

Получить среднее арифметическое всех чётных элементов массива, стоящих на нечётных местах
Помогите , пожалуйста, срочно надо написать программу( программа управляется с помощью меню В...

Найти среднее значение элементов массива стоящих на нечетных местах
№1. Дан массив Ai (i=1,2,3...10). Найти среднее значение элементов стоящих на нечетных местах. №2....

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