Составить легкую программу!
10-11 класс
|
Зеркально отразить последовательность в одномерном массиве.
Т.е. Задаем последовательность, вводим границы "зеркала" - х и у. И зеркально отражаем.
Пример:12345678910
х=5
у=8
Вывод:12348765910.
Очень буду блгодарна!
Вот, пингвинчик :3 Можно было и короче, переменных поменьше и циклов... Но раз задача именно такая, то лучше не сокращать, а то могут оценку снизить)
var a: array [1..10] of integer;
i, x, y, xi, yi, t: integer;
begin
for i := 1 to 10 do
readln(a[i]);
writeln('X, Y');
readln(X, Y);
for i := 1 to 10 do
begin
if (a[i] = X) then xi := i;
if (a[i] = Y) then yi := i;
end;
t := a[xi];
a[xi] := a[yi];
a[yi] := t;
for i := 1 to 10 do
writeln('[', i, '] => ', a[i]);
end.
var a: array [1..10] of integer;
i, x, y, xi, yi, t: integer;
begin
for i := 1 to 10 do
readln(a[i]);
writeln('X, Y');
readln(X, Y);
for i := 0 to abs(round(0.5*(x-y))) do
begin
Она правда не сложная, помогите пингвину :(
Другие вопросы из категории
Составить таблицу истинности для выражения
партий, а также число не участвовавших в голосовании по каждому округу. Выборы в округе считаются состоявшимися, если в голосовании приняло участие не менее P % избирателей. Определить в каких округах выборы состоялись.
Читайте также
2)Целочисленный- f(x)=x^2+b, при x=1,2,3,4,5
первую или вторую задачу
вторая: троллейбус за время t прошёл пусть s
какую скорость v приобрёл он в конце пути и с каким ускорением a двигался, если начальная скорость движения равна .v0.(77)
случае. Помогите пожалуйста!!!
с координатами (х, у) принадлежит закрашенной области, и false — в
противном случае: