Все отрицательные элементы массива заменить квадратом среднего арифметического

@xana · Регистрация: 14.03.2015

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

Дан массив.Все отрицательные элементы этого массива заменить квадратом среднего арифметического его положительных элементов.Если положительных элементов нет,выдать соответствующее сообщение.Как написать программу и блок-схему

@ZX Spectrum-128 · 14.03.2015, 16:49

Pascal

const
  n=3;
var
  a: array[1..n] of real;
  j: integer;
  s,sr:real;
  k:integer;
begin
  s := 0; k:=0;
  for j := 1 to n do
    begin
      readln(a[j]);
      if a[j] > 0 then
        begin
          inc(k);
          s:=s+ a[j];
        end;
    end;
  if k<>0 then
    begin
      sr:=s/k;
      writeln('Среднее положительных: ',sr:0:2);
      for j := 1 to n do
        begin
          if a[j] < 0 then
            a[j]:=sqr(sr);
          write(a[j]:6:2);
        end;
    end
  else
    writeln('Положительных нет. ');
  readln;
end.

@xana 0 / 0 / 0 Регистрация: 14.03.2015 Сообщений: 11
		1
	Все отрицательные элементы массива заменить квадратом среднего арифметического 14.03.2015, 14:07. Показов 1711. Ответов 1 Метки нет (Все метки) Дан массив.Все отрицательные элементы этого массива заменить квадратом среднего арифметического его положительных элементов.Если положительных элементов нет,выдать соответствующее сообщение.Как написать программу и блок-схему 0

	14.03.2015, 16:49

Опции темы

Все отрицательные элементы массива заменить квадратом среднего арифметического

Решение