Var k:integer;
function sr(n:integer):real;
var i,s:integer;
begin
s:=0;
for i:=1 to n do s:=s+i*i;
sr:=s/n;
end;
begin
write('k='); readln(k);
writeln('Среднее арифметическое = ', sr(k));
end.
Пример:
k=5
Среднее арифметическое = 11
Первая программа находит максимальное значение (об этом говорит код
<span>if Dat[k] > m then
m := Dat[k]) Следовательно в m будет храниться 8. Выведет также 8.
Во второй программе из 50 9 раз(при к равных 0,1,2,3,4,5,6,7,8) вычитается число 4. 50-4*9=50-36=14.
</span>Во третьей программе из 50 9 раз(при к равных 1,2,3,4,5,6,7,8,9) вычитается число 3. 50-3*9=50-27=23.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var k:=ArrRandom(ReadInteger('n='),-50,50); k.Println;
var (u,j):=ReadInteger2('Введите u и j через пробел:');
Writeln('Cумма первых ',u,' элементов ',k.Take(u).Sum);
Writeln('Произведение последних ',j,' элементов ',
k.TakeLast(j).Aggregate(BigInteger(1),(p,q)->p*q));
end.
<u>Пример</u>
n= 20
39 -18 -16 5 -30 50 -10 -9 34 -33 31 -26 31 -29 8 48 38 37 32 22
Введите u и j через пробел: 12 13
Cумма первых 12 элементов 17
Произведение последних 13 элементов 2781117283830792192