30 на !
напишите программу, которая выполняет циклический сдвиг элементов массива вправо на r элементов.
входные данные
первая строка содержит размер массива n . во второй строке через пробел n чисел – элементы массива. гарантируется, что 0 < n ≤ 1 . в третьей строке записано число r ( 0 ≤ r ≤ n ).
выходные данные
программа должна вывести в одну строчку все элементы получившегося массива, разделив их пробелами.
примеры
входные данные
6
1 2 3 4 5 6
2
выходные данные
5 6 1 2 3 4
var str:string;
A,B,i:integer;
begin
write('введите ваш текст');
readln(str);
for i:=1 to length(str) do begin
if (str[i]='А')or (str[i]='а') then a:=a+1;
if (str[i]='Б')or (str[i]='б') then B:=b+1;
end;
if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b);
end.
вариант 3
var str:string;
A,B,i:integer;
begin
write('введите ваш текст');
readln(str);
i:=1;
while i<=length(str) do begin
if (str[i]='А')or (str[i]='а') then delete(str,i,1);
i:=i+1;
end;
write(str);
end.
Program YouName;
Var i,n:Integer;
s: array[0..75] of Integer; // Объявление массива
Begin
write('Введите количество элементов массива: ');
readln(n); // Ввод кол-ва элементов массива
writeln('');
writeln('Исходный массив:');
for i:=1 to n do // Перебор от первого до n элементов массива
Begin
// Если используете паскаль ABC, то можно написать так: s[i]:=random(-100,100);
s[i]:=random(100-(-100)+1)+(-100); // Заполнение элементов массива от -100 до 100.
write(s[i], '(', i, ')',' '); // Вывод элемента массива с его порядковым номером
End;
writeln;
writeln('');
writeln('Видоизмененный массив:');
for i:=1 to n do // Перебор от первого до n элементов массива
Begin
If (i mod 2 = 0) and (s[i] mod 2 = 0) then // Если элемент и значение массива четное, то..
Begin
s[i]:=s[i]*(-1); // Смена знака на противоположный
write(s[i], '(', i, ')',' '); // Вывод элемента массива с его порядковым номером
End;
End;
writeln;
writeln('');
End.
Объяснение: Если есть вопросы, то пишите мне в лс.