Найти среднее арифметическое модулей отрицательных и произведение положительных элементов массива

@IRAGLAD · Регистрация: 16.11.2014

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

Задан вектор А={Аn}. Найти среднее арифметическое модулей отрицательных и произведение положительных элементов.

@Joy · 17.11.2014, 07:57

Pascal

const N=100;
type mas=array[1..N] of real;
var
  a:mas;
  i,im,iZnum,iPnum:integer;
  rSari,rMult:real;
begin
  repeat
    write('N=');readln(im);
  until im in [1..N];  
  write('Введите массив A:');
  rSari:=0.0;rMult:=1.0;iZnum:=0;iPnum:=0;
  for i:=1 to im do begin
    read(a[i]);
    if a[i]>0 then begin
      iPnum:=iPnum+1;
      rMult:=rMult*a[i];
    end;  
    if a[i]<0 then begin
      iZnum:=iZnum+1;
      rSari:=rSari+abs(a[i]);
    end;
  end;
  if iPnum>0 then
    writeln('произведение положительных элементов=',rMult:0:4)
  else writeln('Положительные элементы в массиве отсутствуют');
  
  if iZnum>0 then
    writeln('среднее арифметическое модулей отрицательных элементов=',rSari/iZnum:0:4) 
  else writeln('Отрицательные элементы в массиве отсутствуют');
end.

@IRAGLAD 0 / 0 / 0 Регистрация: 16.11.2014 Сообщений: 7
		1
	Найти среднее арифметическое модулей отрицательных и произведение положительных элементов массива 17.11.2014, 00:27. Показов 1727. Ответов 1 Метки нет (Все метки) Задан вектор А={Аn}. Найти среднее арифметическое модулей отрицательных и произведение положительных элементов. 0

	17.11.2014, 07:57

Опции темы

Найти среднее арифметическое модулей отрицательных и произведение положительных элементов массива

Решение