Добре дошли!

Добре дошли в нашите форуми, пълни с полезна информация. Имате проблем с компютъра или телефона си? Публикувайте нова тема и ще намерите решение на всичките си проблеми. Общувайте свободно и открийте безброй нови приятели.

Моля, регистрирайте се за да публикувате тема и да получите пълен достъп до всички функции.

Програма на Pascal

Последователи

25 октомври 200619 г.

Трябва ми програма на Pascal с която да се намират S (сумата) и SR (средно аритметично) на положителните елементи на реалния масив ABC [45]. Да се отпечатат стойностите на S и SR

Благодаря предваритено ! :wors:

25 октомври 200619 г.

Трябва ми програма на Pascal с която да се намират S (сумата) и SR (средно аритметично) на положителните елементи на реалния масив ABC [45]. Да се отпечатат стойностите на S и SR

Благодаря предваритено !

program Test;


const

  MaxN = 45;

var

  ABC: array[1..MaxN] of real;

  S,		  {* Променлива за сумата *}

  SR: real;   {* Променлива за средноаритметичната *}

  I,		  {* Променлива за циклите *}

  N: integer; {* Променлива за броя на положителните елементи *}


begin

  for I := 1 to MaxN do

  begin

{* Въвеждане на стойностите на масива *}

	Readln(ABC[I]);

  end;


  S := 0;

  SR := 0;

  N := 0;

  for I := 1 to MaxN do

  begin

{* Изчисляване на сумата *}

	if ABC[I} > 0 then

	begin

	  S := S + ABC[I];

	  N := N + 1;

	end;

  end;

{* Изчисляване на средноаритметично *}

  SR := S / N;


{* Извеждане на стойностите *}

  Writeln('Сума : ', S);

  Writeln('Средноаритметично : ', SR);

end.