Пожалуйста!!! очень срочно...Определить среднее арифметическое положительных элементов

Пожалуйста!!! очень срочно...
Найти среднее арифметическое положительных элементов массива A, и вывести на экран номера нулевых частей массива. A=(3,2;2,5;0;0,7;0;-1,3;4,3;-2,9;0;-0,4;-5,2;3,4) . Вывести на экран результаты и данный массив. Pascal.

Задать свой вопрос
1 ответ

var

   a : array of real := (3.2,2.5,0,0.7,0,-1.3,4.3,-2.9,0,-0.4,-5.2,3.4);

   n : integer;

   s : real;

   

begin

   writeln('массив a = ', a);

   write('номера частей равных 0: ');

   for var i :=0 to a.Length-1 do begin

       if a[i] = 0 then write(' ', i);

       if a[i] gt; 0 then begin

           n += 1;

           s += a[i];

       end;

   end;

   writeln;

   writeln('s = ', s/n);

end.

Семён
да, не забудь нумерация в массиве начинается с 0 а не с 1
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт