Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
SVET0S1AV
0 / 0 / 1
Регистрация: 05.04.2014
Сообщений: 20
1

Определить среднее арифметическое отрицательных элементов последовательности

10.06.2014, 19:38. Просмотров 410. Ответов 2
Метки нет (Все метки)

Всем привет! Пожалуйста, помогите составить программу: "Задана последовательность из n вещественных чисел. Определить среднее арифметическое отрицательных элементов последовательности."

Добавлено через 1 час 36 минут
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
26
27
program Project3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var i,j: integer;
n: real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
Writeln('Vvedite kolichestvo celih chisel');
Readln(n);
For i:=1 to n do
begin
Read(num);
If num<0 then
begin
sum:=sum+num;
j:=j+1;
end;
end;
AVG:=sum/j;
Writeln(AVG);
Readkey;
Readln;
End.
Где я ошибся?)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2014, 19:38
Ответы с готовыми решениями:

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

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

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

Подсчитать среднее арифметическое отрицательных элементов последовательности
Писать в Паскале. Заранее спасибо

Определить среднее арифметическое элементов последовательности до первого нулевого
Дано натуральное число n и действительные числа а1,а2...an.Известно, что в...

2
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
10.06.2014, 20:54 2
Цитата Сообщение от SVET0S1AV Посмотреть сообщение
Где я ошибся?)
1. n должен быть целочисленный
2. num, sum, avg - не объявлены в блоке определения переменных

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  i, j, n: integer;
  num, sum, avg: real;
begin
  Writeln('Vvedite kolichestvo celih chisel');
  Readln(n);
  for i := 1 to n do
  begin
    Read(num);
    if num < 0 then
    begin
      sum := sum + num;
      j := j + 1;
    end;
  end;
  AVG := sum / j;
  Writeln(AVG);
  Readln;
end.
Добавлено через 3 минуты
немного окультурил:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  i, j, n: integer;
  num, sum, avg: real;
begin
  Write('Vvedite kolichestvo celih chisel: ');
  Readln(n);
  j := 0;
  for i := 1 to n do
  begin
    write('Vvedite ',i,'-e chislo: ');
    Readln(num);
    if num < 0 then
    begin
      sum := sum + num;
      j := j + 1;
    end;
  end;
  AVG := sum / j;
  Writeln('Srednee otricatelnih = ',AVG:0:3);
  Readln;
end.
1
SVET0S1AV
0 / 0 / 1
Регистрация: 05.04.2014
Сообщений: 20
10.06.2014, 20:58  [ТС] 3
Спасибо большое, ermolay - модератор!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2014, 20:58

Определить среднее арифметическое элементов последовательности, больших заданного значения
Задана последовательность из n вещественных чисел. Определить среднее...

Вычислить сумму элементов с индексами кратными 2, среднее арифметическое всех четных элементов, произведение отрицательных элементов
привет ..ребят помогите пожалуйста Дан двумерный массив Х размером n*m,...

Найти среднее арифметическое отрицательных элементов матрицы и количество положительных элементов
1) В матрице d (5, 7) найти среднее арифметическое отрицательных элементов и...


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

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

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