var a:array [1..10] of integer;
i,m,s:integer;
begin
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i]:5)
end;
writeln;
write('Введите количество последних элементов, сумму которых надо найти : ');
readln (m);
for i:=11-m to 10 do s:=s+a[i];
write('Сумма последних ',m,' элементов равна ',s)
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a:= ArrRandom(n, -99, 99);
a.Println;
var M := ReadInteger('Сколько последних взять?');
if m > n then
Println('Не нужно жадничать!')
else
Println('Сумма', m, 'последних равна', a.TakeLast(m).Sum)
end.
