Регистрация
nog2018
03.04.2021 02:49
Информатика
Есть ответ 👍

Напишите программу для выполнения циклического сдвига массива вправо на 3 элемент.в pascalabc. заранее .

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

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

Наташа006
Наташа006
4,4(91 оценок)
// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var a: =arrrandom(n,-50,50); a.println;   a: =(a[n-3: ]+a[: n-3]).toarray; a.println end. пример n= 15 1 -10 49 1 28 18 -44 -46 -23 36 36 -49 -46 -49 -21 -46 -49 -21 1 -10 49 1 28 18 -44 -46 -23 36 36 -49
Dinara260803
Dinara260803
4,5(78 оценок)

program ruslanchomaev;

var n,i:integer; s:real;

begin

writeln('Введите кол-во членов');

readln(n);

s:=0;  

for i:=1 to n do

 s:=s+1/i;

writeln('сумму n первых членов ряда=',s:3:3);

end.

Объяснение:

Популярно: Информатика