Напишите программу, которая выполняет циклический сдвиг части массива, начиная с элемента с номером K и заканчивая элементом с номером
10-11 класс
|
var
i,k,m,r,p,j:integer;
a:array[1..10]of integer;
begin
writeln('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln;
write('Введите K,M,R: ');
readln(k,m,r);
for i:=1 to r do
begin
j:=k;
p:=a[j];
while j<m do
begin
a[j]:=a[j+1];
j:=j+1
end;
a[j]:=p;
end;
writeln('Измененный массив:');
for i:=1 to 10 do write(a[i],' ');
end.
Допустим есть: 1 2 3 4 5 6
Говорю: с 3-го по 5-й на 1
Получится: 1 3 4 5 0 6 Так? Или не так?
в примере так написано: дано 1 2 3 4 5 6, со 2 по 5 на 2 эл.(R) и получается 1 4 5 2 3 6
Другие вопросы из категории
Поменять местами строки матрицы с номерами K1 и K2.
Решить в Pascal. Перед тем как выложить, проверить свое решение.
благодарна!
0011010100100000111000011110000011101011111010111110111011100010
значения которых превышают средне арифметическое значений его элементов
заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов,которые больше своего соседа слева
Читайте также
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
определяет количество чисел, кратных 4. Программа получает на вход
количество чисел в последовательности, а затем сами числа. В
последовательности всегда имеется число, кратное 4. Количество чисел не
превышает 1000. Введённые числа не превышают 30 000. Программа должна
вывести одно число — количество чисел, кратных 4.
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.