<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10); a.Println;
Writeln('Среднее элементов с четным значением: ',
a.Where(x->x.IsEven).Average);
Writeln('Среднее элементов с четным номером: ',
a.Where((x,i)->i.IsOdd).Average)
end.
<u>Пример</u>
9 1 4 8 2 1 10 7 8 5
Среднее элементов с четным значением: 6.4
Среднее элементов с четным номером: 4.4
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(ReadInteger('n ='), 760, 780);
a.Println;
Writeln('Max = ', a.Max, ' №', a.IndexMax + 1);
Writeln('Min = ', a.Min, ' №', a.IndexMin + 1);
Writeln('Avg = ', a.Average);
var d := ReadInteger('d =');
Writeln('Count(x > ', d, ') = ', a.Where(x -> x > d).Count);
a.Sort;
a.Println;
end.
Под алфавитом<span> следует понимать набор букв, знаков препинания, цифр, скобок и др. символов, используемых в тексте. В алфавит также следует включить и пробел, т. е. пропуск между словами</span>
1)program odin;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(Sqr(x)*x)/3+(Sqr(x*x)*x)/5;
Writeln('y =',y)
end.
2)program dva;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=<span>Exp(-x*Ln(2))</span>- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program tri;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program cheture;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+(Sqr(x*x)*(1-x));
Writeln('y =',y)
end.
Задача № 6
var r:array[1..100,1..100] of integer;i,j,n,k,sum:integer; sr:real;
beginrandomize;write('Введите n: ');readln(n);
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to n dobeginr[i,j]:=random(10);write(r[i,j]:4);end;writeln;end;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i=j then beginwrite(r[i,j]:4);sum:= sum + r[i,j];end elsewrite(' ':4);end;writeln;end;sr:= sum / n;writeln;writeln('sr:=', sr);
writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif sr < r[i,j] thenk:= k + 1;end;end;writeln('k:=', k);end.