Массив, среднее арифметическое.

@Mikula Patariel · Регистрация: 28.09.2009

Author24 — интернет-сервис помощи студентам

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

@Давид · 23.10.2009, 18:22

Mikula Patariel, Вот...проверяйте!

Pascal

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
      i,n,summ,k:integer;
      sr:real;
begin
clrscr;
writeln ('Vvedite kol - vo elementov  ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
For i:=1 to n do
  if x[i]<0 then begin
                 summ:=summ+x[i];
                 k:=k+1;
                 sr:=summ/k;
                 end;
Writeln ('Summa otricatelnyx el-ov = ',summ);
Writeln ('Kol-vo otricatelnyx el-ov =',k);
Writeln ('Srednee arifmeticheskoe = ',sr:4:2);
Readln
end.

@tururui · 23.10.2009, 18:38

Перед 18-й строкой

Pascal

1	For i:=1 to n do

нужно поставить summ:=0;

@Mikula Patariel 0 / 0 / 0 Регистрация: 28.09.2009 Сообщений: 31
		1
	Массив, среднее арифметическое. 23.10.2009, 18:03. Показов 1027. Ответов 2 Метки нет (Все метки) составьте на паскале программу вычисления среднего арифметического отрицательных элементов 0

	23.10.2009, 18:38

Массив, среднее арифметическое.

Решение