Дан массив А(15). Его элементы задаются случайным образом от -35 до 50. Найти сумму и...

Question

Дан массив А(15). Его элементы задаются случайным образом от -35 до 50. Найти сумму и среднее значение отрицательных эл-тов, сумму и кол-во положительных эл-тов. Решить всё в паскале

Comments

"Решить ВСЁ в паскале.". А что, бывают варианты, когда в часть решают на одном языке, а часть на другом?

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(15,-35,50); a.Println;
  Writeln('Сумма отр.=',a.Where(x->x<0).Sum,', ср.арифм.отр=',<br>    a.Where(x->x<0).Average:0:5);<br>  Writeln('Сумма пол.=',a.Where(x->x>0).Sum,', кол-во пол.=',
    a.Where(x->x<0).Count)<br>end.

Тестовое решение
13 9 18 -29 -33 7 41 -15 -2 10 7 -32 13 16 -1
Сумма отр.=-112, ср.арифм.отр=-18.66667
Сумма пол.=134, кол-во пол.=6