Дан массив из 30-ти элементов. каждый элемент может принимать целочисленные значения от -100 до 100. напишите программу, которая позволит подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. qbasic

Искренне надеюсь, что вы сможете перевести этот код к нужному виду..: ) в принципе, расхождения должны быть только в вводе/выводе (где console.бла-бла-бла) и генерации случайных чисел) sub main()         dim a(29), sum, col as integer         dim rnd = new random()         for i as integer = 0 to 29             a(i) = rnd.next(-100, 100)             console.write("{0} => {1}" + environment.newline, i, a(i))             if (i > 0) then                 if (a(i) mod a(0)) then                     sum = sum + a(i)                     col = col + 1                 end if             end if         next         console.writeline(math.round(sum / col, 2))         console.readkey()     end sub

Var a: array[1..2,1..3] of integer; i,i1,i2,k: integer; z: real; begin writeln('vvedite storoni treugolnikov'); for i1: =1 to 2 do for i2: =1 to 3 do read(a[i1,i2]); for i1: =1 to 3 do for i2: =1 to 3 do begin if   a[1,i1]> a[1,i2] then begin k: =a[1,i2]; a[1,i2]: =a[1,i1]; a[1,i1]: =k; end; if   a[2,i1]> a[2,i2] then begin k: =a[2,i2]; a[2,i2]: =a[2,i1]; a[2,i1]: =k; end; end; z: =a[1,1]/a[2,1]; for i2: =1 to 3 do if a[1,i2]/a[2,i2]=z then i: =i+1; if i=3 then writeln('da') else writeln('net'); end.

131 =128+2+1=2^7 + 2^1 +2^0= 10000011       ,79 *       умножаем только дробную часть числа, искомая двоичная          2           дробь записывается из целых  сверху-вниз   0,79≈0,11011   1,58*         2   1,40       2                                                131,79=10000011,11011   0,8       2   1,6       2   1,2