Дан массив из n элементов .определить среднее арифметическое кратных 5 и некратных 10.решите .буду

Var a: array[1..10000]of integer; n,i,k,c: integer; summ: real; begin readln(n); for i: =1 to n do a[i]: =random(100); for i: =1 to n do begin if (a[i] mod 5=0)or(a[i] mod 10> 0)  then begin c: =c+a[i]; k: =k+1; end; end; summ: =c/k; writeln(summ); end.

20с7f = 2* 16^4 + 0 * 16^3 +12 * 16 ^2 + 7 * 16^1 + 15 * 16^0=

= 2 * 65536 + 0 + 12 * 256 + 7 * 16 + 15 = 131072 + 3072 + 112 + 15 = 134271(10)

 

f3ao6/4 - если я правильно понял это условие, то перевести в 10 систему и разделить на 4?

 

f3ao6 = 15 * 16^4 + 3 * 16^3 + 10 * 16^2 + 0 * 16^1 + 6 * 16^0 =

= 15 * 65536 + 3 * 4096 + 10 * 256 + 0 + 6 = 983040 + 12288 + 2560 + 6 = 997894(10)

997894 : 4 = 249473,5 (10)

 

program xxx;

    var i, k : integer;

                  a : array [1..10] of real;

begin

  write('введите элементы массива а: ');

  for i: =1 to 10 do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to 10 do

        write(a[i]);

  k: =0;

  for i: =1 to 9 do

      if a[i]< > a[10] then k: =k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.