Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
1 / 1 / 0
Регистрация: 02.01.2013
Сообщений: 19
1

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

03.01.2013, 02:20. Показов 1747. Ответов 1
Метки нет (Все метки)

Написать функцию , которая вычисляет среднее арифметическое отрицательных элементов масива
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.01.2013, 02:20
Ответы с готовыми решениями:

Написать функцию, которая вычисляет среднее арифметическое элементов непустого списка
Всем здраствуйте. Помогите пожалуйста кто чем может. Эти задачи будут выведены на экзамен. Очень...

Написать программу, которая вычисляет среднее арифметическое элементов двумерного массива.
Написать программу, которая вычисляет среднее арифметическое элементов двумерного массива. Массив...

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

Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел размером 3х2.
Написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с...

1
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
03.01.2013, 02:48 2
Лучший ответ Сообщение было отмечено Artemist1x как решение

Решение

Здравствуйте.
Вариант решения:
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
program _array;
 
const
 N          = 15;
 
type
 TArray     = array [1..N] of integer;
 
var
 Mas        : TArray;
 
 
procedure FillArray(var A:TArray; rnd:boolean; lb,rb:integer);
{процедура заполнения массива rnd=true - случайно rnd=false - вручную
 из интервала (lb,rb)}
var
 i          : byte;
 function RandomInt(x1,x2 :integer):integer;
 {возвращает случайное целое из интервала (x1,x2)} 
 var
  x         : integer;
  sign      : byte;
 begin
  x:=0;
  if x1 < x2 then 
   begin
    if x2<0 then begin
                  repeat
                   x:=-Random(abs(x1));
                  until (x>x1) and (x<x2);
                 end
            else begin
                  repeat
                   x:=random(x2);
                   sign:=random(2);
                   if sign>0 then x:=-x;
                  until (x>x1) and (x<x2);
                 end;
    RandomInt:=x;
   end;
 end;
begin
 case rnd of 
    TRUE  : for i:=1 to N do A[i]:=RandomInt(lb,rb);
    FALSE : begin
             write('[',i,']: ');readln(A[i]);
            end;
 end;
end;
 
procedure PrintArray(const A:TArray);
{   печатает массив   }
var
 i          : byte;
begin
writeln();
 for i:=1 to N do write(A[i],' ' );
writeln();
end;
 
function GetNegAverage(const A : TArray ):real;
{возвращает среднее арифметическое отриц. эл-ов массива}
var
 i,cnt,sum  : integer;
begin
 cnt:=0;
 sum:=0;
 for i:=1 to N do 
  if A[i]<0 then 
   begin
    inc(sum,a[i]);
    inc(cnt)
   end;
if cnt>0 then GetNegAverage:=sum/cnt else GetNegAverage:=0;
end;
 
BEGIN
 
{ input & print array }
 randomize;
 FillArray(Mas,TRUE,-100,100);
 Write('formed array: ');
 PrintArray(Mas);
 
{ process. & output }
 Writeln('Neg. average: ',GetNegAverage(Mas):0:2);
  
Readln();
END.
компилировался в PascalABC.net & FPC
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.01.2013, 02:48

Написать программу которая вычисляет среднее арифметическое ненулевых элементов массива
Написать программу которая вычисляет среднее арифметическое ненулевых элементов массива Mэлементы...

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

Написать функцию, которая вычисляет среднее арифметическое элементов одномерного массива
1.1 Написать функцию, которая вычисляет среднее арифметическое элементов одномерного массива. Для...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru