Найти среднее арифметическое элементов, предшествующих первому положительному элементу массива

@Khizhnjak · Регистрация: 15.12.2016

Найти среднее арифметическое значение элементов массива х(х1,х2...х10), предшествующих первому положительному элементу

@Hitoku · 29.03.2017, 10:51

Pascal

const n=10;
begin
  var x:=ArrRandom(n,-10,10); var ave:=0.0; var k:=0; var b:=true;
  x.Println;
  for var i:=0 to n-1 do
    if x[i]>0 then b:=false else 
      if b then begin
        ave+=x[i]; k+=1;
      end;
  if ave<0 then ave/=k;
  write('Среднее арифметическое: ',ave:0:2);
end.

@volvo · 29.03.2017, 11:38

Pascal

begin
  var a := ArrRandom(10, -20, 20).Println(',').ToArray;
  var t := a.TakeWhile(v -> v <= 0).ToArray;
  if t.Length > 0 then writeln(t.Average) else writeln('Перед первым положительным нет элементов');
end.

@Khizhnjak 0 / 0 / 0 Регистрация: 15.12.2016 Сообщений: 20
		1
	Найти среднее арифметическое элементов, предшествующих первому положительному элементу массива 29.03.2017, 10:39. Просмотров 1663. Ответов 2 Метки вуз, задача, задача, информатика, массив, первый курс (Все метки) Найти среднее арифметическое значение элементов массива х(х1,х2...х10), предшествующих первому положительному элементу 0

Опции темы

Найти среднее арифметическое элементов, предшествующих первому положительному элементу массива

Решение