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

198

275

Посмотреть ответы 2

Ответы на вопрос:

vi600081

Информатика

4,6(72 оценок)

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.