uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();
//заполнение массива случайными числами
for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;
//вывод массива
for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
//удаляем строку 6 и меняем 5 и 2 строки местами
for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.
1→ 2; 2→3; 3→4; 10→11; 100→101 К числу прибавляется 1
1→2; 2→4; 3→6; 4→8; 10→20; 100→200 Число умножается на 2
1→3; 2→5; 3→7; 4→9; 10→21; 100→201 К числу прибавляется следующее число. Например: 1+2=3; 2+3=5; 3+4=7; 100+101=201
1→2; 2→1; 3→4; 4→3; 10→9; 11→12; 100→99 Если число четное, то отнимаем 1, если нечетное, то прибавляем1.
1→2; 2→1; 3→6; 4→2; 10→5; 11→22; 100→50 Четное число делим на 2, нечетное число умножаем на 2
1→1; 2→1; 3→1; 4→1; 10→2; 11→2; 100→3 Сколько цифр в числе, такое число
1→1; 2→2; 3→0; 4→1; 20→2; 21→ 0 Если число делится на 3, то 0. Если не делится, то ответом будет число 1 или 2, которое нужно прибавить или отнять чтобы получить 0 или число которое делится на 3 без остатка
Внимание! Если программа не работает, обновите версию!
begin
var q:=new Queue<integer>;
var n:=ReadInteger('Кол-во элементов (не менее 4):');
Randomize;
var k:integer;
for var i:=1 to n do begin
k:=Random(-20,40); Print(k);
q.Enqueue(k)
end;
Writeln; // очередь заполнена, выведены ее элементы
var (ko,s):=(-100,0);
for var i:=1 to n do begin
k:=q.Dequeue; q.Enqueue(k);
if k.IsOdd then ko:=k;
if i=3 then s:=k
end;
s+=ko;
q.Enqueue(s);
q.Println; // искомая сумма помещена в очередь
for var i:=1 to n do begin
k:=q.Dequeue;
if i<>4 then q.Enqueue(k)
end;
q.Println
end.