Во время урока Травологии в школе магии и волшебства Хогвартс мадам Стебль дала задания ученикам посадить в горшки различные волшебные растения. При этом горшки с растениями несколько раз в течении четверти переставляются в зависимости от развития растений и необходимой для них освещенности. Погибшие или выросшие до нужного состояния растения убирают из теплицы. Итак, от Вас требуется написать программу, которая будет определять, какие растения остались в теплице к концу четверти.
Формат ввода
Первая строка содержит натуральное число N – начальное количество горшков с растениями (1 ≤ N ≤ 100). Следующие N строк содержат названия растений, которые посажены в соответствующие горшки, начиная с первого по порядку слева направо. Названия записаны латинскими буквами и могут состоять из нескольких слов. На следующей строке задано натуральное число K – количество перестановок горшков в течение четверти (1 ≤ K ≤ 100) В следующих К групп строк находится описание перестановки горшков, которое организовано так:
1.Пусть после предыдущей перестановки горшков в теплице осталось Ni горшков в определённом порядке.
2.Нумеруем их с 1-го по Ni-й (эта нумерация может не совпадать с исходной).
3.Сначала на отдельной строке указывается количество горшков, которое останется в теплице после данной перестановки Ni+1 (гарантируется, что Ni+1 ≤ Ni).
4.Затем следует Ni+1 строка, содержащих различные номера горшков от 1 до Ni. Эти строки показывают, какие горшки и в каком порядке окажутся в теплице после перестановки.
Например, в приведённом ниже примере в теплице было 3 растения Steklo polzyn, Monetoved, Jyjalka. Производится две перестановки: после первой на столе остаются все три исходных горшка, но в порядке 3, 2, 1, то есть: Jyjalka, Monetoved, Steklo polzyn. После второй перестановки в теплице остаются только два горшка, первый и второй Jyjalka, Monetoved.
Формат вывода
Выводится список растений в горшках, оставшихся в теплице, в том порядке, в каком стоят горшки.
1.
const N = 10;
var a: array [1..N] of integer;
i, x: integer;
begin
write('Введите x: ');
readln(x);
for i := 1 to N do
begin
a[i] := x + i - 1;
write(a[i], ' ');
end;
end.
2.
const N = 10;
var a: array [1..N] of integer;
i: integer;
begin
a[1] := 1;
a[2] := 1;
for i := 3 to N do
begin
a[i] := a[i-1] + a[i-2];
end;
for i := 1 to N do
begin
write(a[i], ' ');
end;
end.
3.
const N = 6;
var a: array [1..N] of integer;
i, x: integer;
begin
a[N] := 1;
for i := N-1 downto 1 do
begin
a[i] := 2 * a[i+1];
end;
for i := 1 to N do
begin
write(a[i], ' ');
end;
end.
Program abra;
Var
X : Array [1..20, 1..20] Of
real;
N : Integer;
P : Real;
i, j: Integer;
begin
WriteLn ('Вычисление произведения ');
Write ('Введите размерность: N = ');
ReadLn (N);
WriteLn ('Введите элементы массива:');
For i := 1 To N Do
For j := 1 To N Do
Begin
Write ('X[', i, ',', j, '] = ');
ReadLn (X [i, j] );
End;
P := 1;
For i := 1 To N Do
For j := 1 To N Do
P := P * X [i, j];
if (X [i,j])=0 then writeln('присутствуют нулевые элементы') else
WriteLn ('Произведение: P = ',p: 6: 1);
readln;
end.
Объяснение: