Дан массив a размера n и целое число k найти сумму последних к элементов

Question

Информатика

Фетинья

20 июля, 14:00

Дан массив a размера n и целое число k найти сумму последних к элементов

+3

Ответы (1)

Знаете ответ на вопрос?

Викторин · Answer 1

Program prog;

Uses crt;

var a: array [1 ... 100] of integer;

n, i, k, s: integer;

begin

clrscr; randomize;

write ('N = ') ;

readln (n) ;

write ('k = ') ;

readln (k) ;

for i:=1 to n do

begin

a[i]: = random (50) ;

write (a[i],' ') ;

end;

writeln; writeln;

for i:=n downto (n-k+1) do

s:=a[i]+s;

writeln ('Sum = ', s) ;

end.