Составить программу: сформулировать массив из 12 произвольных чисел.определить сумму квадратов элементов с чётными индексами. результат вывести на экран.

var a: array [1..100] of integer; i,n,s: integer; begin  randomize;   n: =12;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;

  for i: = 1 to n do begin      if i mod 2 =0 then

          s: =s+a[i];   end;   writeln(s);   end.

Const  nx = 50; var  a,b,d: array[1..nx]of integer;   i,n,j,m,z,k,m1: integer; begin writeln('введи количество элементов массива');   read(n);   for i: = 1 to n do begin a[i]: = random(20)-5; write(a[i]: 3); end; writeln; for i: = 1 to n do begin z: = a[i]; k: =0; for j: = i+1 to n do  if a[i] = a[j] then k: = k +1; for j: = 1 to m do if a[i] = b[j] then k: = k +1; for j: = 1 to m1 do if a[i] = d[j] then k: = k +1; if k = 0 then begin  m: = m + 1; b[m] : = z; end else  begin  m1: = m1 + 1; d[m1] : = z; end; end; writeln('b'); for i: = 1 to m do  write(b[i]: 3); end.

var

a : integer; flag : byte; s : string;

function hextodec (s : string) : integer; var i, d, dig : integer; res : integer; begin d : = 1; res : = 0; for i : = length (s) downto 1 do begin dig : = ord (s[i]); if dig < 58 then res : = res + (dig - 48) * d else res : = res + (dig - 55) * d; d : = d * 16; end; hextodec : = res; end;

function dectohex (a : integer) : string; var dig : integer; c : char; res : string; begin res : = ''; repeat dig : = a mod 16; if dig < 10 then c : = chr (dig + 48) else c : = chr (dig + 55); res : = res + c; a : = a div 16; until a = 0; dectohex : = res; end;

function revert (s : string) : string; var i : integer; r : string; begin r : = ''; for i : = length (s) downto 1 do r : = r + s[i]; revert : = r; end;

begin writeln ('введите систему счисления, в которую переводим'); readln (flag); if (flag = 16) then begin writeln ('введите число в десятичной системе счисления'); readln (a); writeln (revert (dectohex (; end else if (flag = 10) then begin writeln ('введите число в шестнадцатиричной системе счисления'); readln (s); writeln (hextodec (s)); end else writeln ('ошибка : неверная система счисления'); readln; end.