Решите задачу на языке паскаль

0 интересует 0 не интересует
91 просмотров

Решите задачу на языке паскаль


image

спросил от Одаренный (2.4k баллов) в категории Информатика
1 Ответ
0 интересует 0 не интересует
ответил от Архангел (150k баллов)
 
Лучший ответ

Program n1;
var a: array [0..99999] of longint;
i,k,n: longint;
begin
readln(n);
for i:=0 to n-1 do read(a[i]);
readln(k);
for i:=(n-k) mod n to n-1 do write(a[i],' ');
if k<>0 then for i:=0 to (n-k) mod n-1 do write(a[i],' ');
end.

оставил комментарий от Одаренный (2.4k баллов)
0 0

почему-то пишет частичное решение(

оставил комментарий от Архангел (150k баллов)
0 0

что-то всетаки лучше, чем ничего)

...