Всистеме счисления с основанием х десятичное число 462 записывается в виде 1а3. укажите это основание.

ответ:

maxn = индекс макс значения в массиве , minn - миним индекс массива

через if мы по этапно сравниваем значения , если условия верны то , значения min/max меняется на текущее значения массива

объяснение:

program d;

var min,max,i,minn,maxn : integer;

mas: array[0..4] of integer;

begin

for i: =0 to 4 do

begin

  readln(mas[i]);

end;

min: =mas[0];

minn: =1;

maxn: =1;

max: =mas[0];

for i: =1 to 4 do

begin

  if min

  if max> mas[i] then begin maxn: =i; max: =mas[i] end;

end;

mas[maxn]: =min;

mas[minn]: =max;

for i: =0 to 4 do

writeln(mas[i]);

end.

1)const nmax=50;       mmax=50; var x: array [1..nmax, 1..mmax] of integer; n,m,i,j,ki: integer;   begin   write('введите размерность матрицы: ');   readln(n,m);   writeln('введите элементы матрицы: ');   for i: =1 to n do     for j: =1 to m do       readln(x[i,j]);   writeln('матрица: ');   for i: =1 to n do   begin     for j: =1 to m do       write(x[i,j]);     writeln(' ');   end;     j: =1;   while (j< =m) do   begin     ki: =0;       for i: =1 to n do       if (x[i,j] mod 2 =0) then ki: =ki+1;     writeln('в столбце',j,': ',ki,' чётных элементов');     j: =j+2;   end; end.2)for i: =1 to 5 do begin for j: =1 to 5 do begin if (j mod 2=0) and (a[i,j]> 0) then s: =s+a[i]; 3)int[,] mass = new int[5,6]; for(int i=0; i< 5; i++) { for(int j=0; j< 6; j++)         mass[i,j]=convert.toint32(console.; } int [] mass2 =new int[6]; int c=0; for(int i=0; i< 6; i++) { mass2[c]=1;     for(int j=0; j< 5; j++)         {if(mass[j,i]%2==0& & mass[i,j]> 0)             mass2[c]*=mass[j,i]}     c++; } for(int i=0; i< 6; i++) { console.writeline(mass2[i]); } console.readline();