Question

Найти сумму последних М - элементов массива заданного в рандомайзе в паскале
ОЧЕНЬ СРОЧНО!!!

Answer 1

Ответ:

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.

Answer 2

===== 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.