Реши на переустановку чисел: расположи три числа 4, 6, 2 в порядке убывания. 1 начало 2 сравни первое и второе числа; если первое меньше второго то поменяй их местами. 3 сравни второе и третье числа; если второе меньше третьего, то поменяй их местами. 4 если теперь три числа расположены в порядке убывания, то закончи выполнение действии; иначе вернись к пункту 2 5 конец

6,4,2 вот так вроде бы и не благодарите

я выбирал задания у которых больше всего .

надеюсь тебе это решение

1

var i:integer;

begin

for i:=2 to 100 do

if(i mod 2 = 0) then writeln(i);

end

2

Var

a: Real;

i,n: Integer;

Begin

Writeln

a:=0

for i:=1 to n do

a:= a + sgr(i);

end

Writeln

Readln

end.

6

Var

N1, N2, M, i: Longint

Begin

Write( Wwedite N1= `)

ReadLn (N2)

if (N1=0) and (N2=0) then writeLn;

if N1>N2 then M:= N1 else M:= N2;

i:=M -1;

Repeat

Inc(i);

Until ((i mod N1)=0) and ((i mod N2)=0);

WriteLn ;

end.

12.

program N99210889

const n=10

s: longint = 1

var i: byte;

begin

s: = s+ Term;

Term: = Term×2

end

writeln(s)

readln

end.

C# 8.0:

using System;

...

public static void InsertToArr<T>(ref T[] Arr, in T Value, in int Index){

   T[] NewArr = new T[Arr.Length + 1];

   for (int i = 0; i < Index; i++) NewArr[i] = Arr[i];

   NewArr[Index] = Value;

   for (int i = Index + 1; i < NewArr.Length; i++) NewArr[i] = Arr[i-1];

   Arr = NewArr;

}

...

Console.ReadLine(); //skips N

var Arr =Array.ConvertAll(Console.ReadLine().Split(' '),int.Parse);

var temp = Console.ReadLine().Split(' ');

InsertToArr(ref Arr, int.Parse(temp[0]), int.Parse(temp[1])-1);

foreach (int i in Arr) Console.Write(i + " ");