Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
santa111
0 / 0 / 0
Регистрация: 05.10.2014
Сообщений: 12
1

Найти среднее арифметическое чисел, неравных заданному числу С

06.10.2014, 18:26. Просмотров 597. Ответов 3
Метки нет (Все метки)

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
28
29
30
31
32
33
34
Program SRARIFM;
   Var
   N, K, I: integer;
   S, SA: real;
   x: array [1..50] of real;
begin
write (‘Введите границы интервала [a, b]);
readln (a, b);
write (‘Введите кол-во элементов в массиве ’);
readln (N);
{Организация ввода значений элементов массива Х}
for i:=1 to N do
begin
write (‘Введите х [, i,]);
readln (x[i])
end;
{Расчетная часть программы}
S:=0;
K:=0;
For i:=1 to N do
If (x[i]>=a) and (x[i]<=b)
then
  begin
S:=s+x[i];
K”=k+1
                    End;
             if k=0
             then
              SA:=0
            Else SA:=S/K;
{Вывод результата подсчета} 
     writeln (‘Средне арифметическое элементов, принадлежащих промежутку [, a:7:3,,, b:7:3,]=, SA:7:3); 
readln 
end.

10 Найти среднее арифметическое чисел, неравных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2014, 18:26
Ответы с готовыми решениями:

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

Цикл: найти сумму натуральных чисел предшествующих заданному числу а
Циклы -while ... do -repeat ... until найти сумму натуральных чисел...

Найти среднее арифметическое: положительных чисел / неотрицательных чисел / чисел, кратных 5
В целочисленном массиве 20 элементов из диапазона (-1000;1000).Найти среднее...

Среди натуральных трехзначных чисел найти те, сумма цифр которых равна заданному числу А
Среди натуральных трехзначных чисел найти те, сумма цифр которых равна...

Найти такой путь из клетки (1,1) в клетку (А, В), чтобы сумма чисел равнялась заданному числу К
Помогите написать программу к задаче Дано шахматную доску размером М на N....

3
erl27
897 / 745 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
06.10.2014, 18:39 2
А при чем здесь этот нерабочий код?
0
Puporev
Модератор
55444 / 42560 / 29412
Регистрация: 18.05.2008
Сообщений: 100,675
06.10.2014, 18:44 3
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
28
29
30
31
32
var n,c,i,k,p,x: integer;
    sa: real;
begin
write ('Введите кол-во элементов  N=');
readln (n);
write('Введите число для сравнения C=');
readln(c);
{Организация ввода значений элементов}
writeln('Введите ',n,' целых чисел');
sa:=0;
k:=0;
p:=0;
for i:=1 to n do
 begin
  readln(x);
  if x<>c then
   begin
    sa:=sa+x;
    k:=k+1
   end;
  if(x<=0)and(i mod 2=0) then p:=p+1;
 end;
{Вывод результата}
if k=0 then writeln('Все элеметы=',c)
else
 begin
  sa:=sa/k;
  writeln ('Средне арифметическое элементов, не равных ',c,'=',sa:0:3);
 end;
writeln('Количество не положительных элементов на четных местах=',p);
readln
end.
0
erl27
897 / 745 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
06.10.2014, 18:50 4
Вот, немного переделал:
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
28
29
30
31
32
33
34
35
36
37
38
39
program SRARIFM;
 
var
  N, k, k1, i: integer;
  S, C: real;
  x: array [1..50] of real;
 
begin
  write('Введите кол-во элементов в массиве: ');
  readln(N);
  {Организация ввода значений элементов массива Х}
  for i := 1 to N do
  begin
    write('Введите х[', i, ']: ');
    readln(x[i])
  end;
  write('Введите С: ');
  readln(C);
  {Расчетная часть программы}
  S := 0;
  K := 0;
  k1 := 0;
  for i := 1 to N do begin
    if x[i] <> C then begin
      S := S + x[i];
      k := k + 1
    end;
    if odd(i + 1) and (x[i] <= 0) then k1 := k1 + 1
  end;
  
  {Вывод результата подсчета} 
  if k > 0 then begin
    S := S / k;
    writeln('Средне арифметическое элементов, не равных [', C, ']=', S:7:3)
  end
  else writeln('Элементов не равных ', C, ' в массиве нет');
  writeln('Количество неположительных чисел, стоящих на четных местах: ', k1);
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2014, 18:50

В массиве из 15 двухзначных случайных чисел найти среднее арифметическое чисел, кратных 3
4)В массиве из 15 двухзначных случайных чисел найти среднее арифметическое...

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

Найти среднее арифметическое чисел с промежутка [A, B], и количество неположительных чисел на местах кратных 3
Осуществить ввод и вывод исходного одномерного массива; выполнить необходимые...


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

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

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