Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.79/19: Рейтинг темы: голосов - 19, средняя оценка - 4.79
0 / 0 / 0
Регистрация: 06.03.2014
Сообщений: 39
1

Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее арифметическое четных чисел

06.03.2014, 17:04. Показов 3782. Ответов 3
Метки нет (Все метки)

Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее арифметическое четных чисел.
Что-то я запутался, помогите пожалуйста.
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2014, 17:04
Ответы с готовыми решениями:

Дана последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных элементов с номерами, кратными 5.
Дана непустая последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных...

Дана непустая последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных элементов с номерами, кратными 5.
Дана непустая последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных...

Вводится последовательность из 15 целых чисел. Найти количество четных чисел
Ребят помогите пожалуйста . В Паскале не селён а вот тут надо работы сдать. Вводится...

Найти среднее арифметическое чисел, заканчивающаяся нулём
Дана последовательность целых чисел, заканчивающаяся нулём. Написать программу, которая находит...

3
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5727 / 3436 / 2442
Регистрация: 22.11.2013
Сообщений: 9,650
Записей в блоге: 1
06.03.2014, 17:27 2
Лучший ответ Сообщение было отмечено andrejuly как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a, s: real;
  n: integer;
begin
  WriteLn('Введите числа, завершение -- 0:');
  n:=0; s:=0;
  Read(a);
  while a<>0 do begin
    inc(n); s:=s+a;
    Read(a);
  end;
  if n>0 then WriteLn('Среднее арифметическое: ',s/n);
end.
1
0 / 0 / 0
Регистрация: 06.03.2014
Сообщений: 39
06.03.2014, 17:29  [ТС] 3
Cпасибо огромное
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5727 / 3436 / 2442
Регистрация: 22.11.2013
Сообщений: 9,650
Записей в блоге: 1
06.03.2014, 18:18 4
andrejuly,
про "четных" проглядел, исправляюсь:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a, s, n: integer;
begin
  WriteLn('Введите числа, завершение -- 0:');
  n:=0; s:=0;
  Read(a);
  while a<>0 do begin
    if not odd(a) then begin
      inc(n); s:=s+a;
    end;
    Read(a);
  end;
  if n>0 then
    WriteLn('Среднее арифметическое четных: ',s/n)
  else
    WriteLn('Четных чисел не введено.');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2014, 18:18

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Пусть вводится последовательность из целых чисел, оканчивающаяся нулем
Найти два наименьших числа последовательности. Заранее спасибо, а то совсем не получается решить

Дана последовательность из n целых чисел. Найти среднее арифметическое чётных чисел из этой последовательности
. Дана последовательность из n целых чисел. Найти среднее арифметическое чётных чисел из этой...

Вводится последовательность целых чисел. Определить среднее арифметическое простых чисел последовательности
Использовать функции в программе Задание: Вводится последовательность целых чисел. Определить...

Вводится последовательность чисел. Найти среднее арифметическое чисел, номера которых кратны 3.
В visual basic почти не разбираюсь..очень нужно сделать задание..помогите,пожалуйста!:-[ ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.