// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),-10,10); a.Println; Writeln('Сумма положительных равна ',a.Where(x->x>0).Sum) end.
Пример Кол-во элементов: 8 -0.904254126783579 -6.85698384272725 -8.54558298296555 0.520270080547906 -6.12226872524352 -5.76991352987006 -8.2311904142756 -5.47438762871287 Сумма положительных равна 0.520270080547906
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),2,3); a.Println; Writeln('Среднее значение равно ',a.Average) end.
Пример Кол-во элементов: 6 2.72211762318486 2.85016930887949 2.41644970626405 2.11135463933989 2.8477212129383 2.67084380549884 Среднее значение равно 2.60310938268424
1) const n=10; var a:array[1..n] of real; i:integer; s:real; begin Randomize; for i:=1 to n do begin a[i]:=10*random-5; write(a[i]:6:2); end; writeln; s:=0; for i:=1 to n do if a[i]>0 then s:=s+a[i]; writeln('s = ',s:5:2); end.
2) const n=10; var a:array[1..n] of real; i:integer; s:real; begin Randomize; for i:=1 to n do begin a[i]:=random+2; write(a[i]:6:2); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; writeln('Среднее = ',s/n:5:2); end.
begin
var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),-10,10);
a.Println;
Writeln('Сумма положительных равна ',a.Where(x->x>0).Sum)
end.
Пример
Кол-во элементов: 8
-0.904254126783579 -6.85698384272725 -8.54558298296555 0.520270080547906 -6.12226872524352 -5.76991352987006 -8.2311904142756 -5.47438762871287
Сумма положительных равна 0.520270080547906
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var a:=ArrRandomReal(ReadInteger('Кол-во элементов: '),2,3);
a.Println;
Writeln('Среднее значение равно ',a.Average)
end.
Пример
Кол-во элементов: 6
2.72211762318486 2.85016930887949 2.41644970626405 2.11135463933989 2.8477212129383 2.67084380549884
Среднее значение равно 2.60310938268424