Дан массив состоящий из 30 элементов. найти в массиве максимальный элемент, вывести его значение и номер на экран. отрицательный элемент массива заменить на равные по модулю положительные элементы.

Program massiv; var i,max,n,j: integer; a: array[1..30] of integer; begin writeln ('введите  элемент  массива'); for i: =1 to 30 do begin write ('a[',i,']-'); readln (a[i]); end; n: =1; max: =a[i]; for i: =2 to 30 do if max< a[i] then begin max: =a[i]; n: =i; end; for i: =1 to 30 do if a[i]< 0 then a[i]: =-a[i]; writeln ('наибольший  элемент  в  массиве ', max); writeln ('номер  массива ', n); writeln ('получившийся  массив'); for i: =1 to 30 do write (a[i],' '); end.

uses crt; type matr=array[1..20,1..20] of integer; proc=procedure(m: matr; n: byte);

procedure glav(m: matr; n: byte); var i: byte; beginwriteln('главная диагональ  : '); for i: =1 to n dowrite(m[i,i]: 3,' '); writeln; writeln; end; procedure vyvod(m: matr; gl: proc; n: byte); begingl(m,n); end; var a: matr; n,i,j: byte; beginclrscr; randomize; repeatwrite('размер матрицы до 20 n='); readln(n); until n in [1..20]; writeln('исходная матрица: '); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(40)+10; write(a[i,j]: 3,' '); end; writeln; end; writeln; vyvod(a,glav,n); readlnend.

а)  (11111012 + af16)/368

переведем числа в одну систему счисления

1111101 = 1*2^6 + 1*2^5 + 1*2^4 + 1*2^3 +1*2^2 +0*2^1 +1*2^0 = 125 (10 cc)

af = a*16^1 +f*16^0 = 160 +15   =175 (10 cc)

36 = 3*8^1 + 6*8^0 = 24 +6 = 30 (10 сс)

считаем:

(125 +75) / 30 = 300 / 30 = 10 (10 сс)

 

б)  1258 + 111012*a216 - 14178

переведем числа в одну систему счисления

125 = 1*8^2 + 2*8^1 + 5*8^0 = 64 +16 + 5 = 85 (10 cc)

11101 =  1*2^4 + 1*2^3 +1*2^2 +0*2^1 +1*2^0 = 16 + 8 + 4 + 0 + 1 = 29 (10 cc)

a2 = a*16^1 + 2*16^0 = 160 + 2 = 162 (10 cc)

1417 = 1*8^3 + 4*8^2 + 1*8^1 + 7*8^0 = 512 + 256 + 8 + 7 = 783 (10 cc)

85 + 29*162 - 783 = 4000 (10 cc)