Алфавит некоторого языка состоит из 32 символов. за сколько секунд мы сможем передать 1600 символов если скорость передачи составляет 100 байт в секунду?

Для кодирования 32 символов достаточно 5 бит   информации, поэтому всего будет передано 1600*5=8000 бит или 1000 байт  информации. 1000/100=10 сек

Program task1; const   n = 10; var   a : array [1..n] of real;   i, j : integer;   min, k : real; begin   for i: = 1 to n do       readln(a[i]);     min: = a[1];   for i: = 1 to n do       if a[i] < min then       begin           min: = a[i];           j: = i;       end;         k: = a[n];   a[n]: = a[j];   a[j]: = k; end. program task2; const   n = 10; var   a : array [1..n] of integer;   i, j, kol : integer; begin   for i: = 1 to n do       readln(a[i]);     kol: = 0;   for i: = 1 to n do       if a[i] mod 3 = 0 then           inc(kol);   for i: = 1 to n do       if a[i] = kol then       begin           j: = i;           break;       end;   writeln(j); end.

1dim a(10, 5) randomize timer for i = 1 to 10     for j = 1 to 5         a(i, j) = int(rnd * 10)         print a(i, j);         s = s + a(i, j) ^ 2     next j     print , s next iисправленный вариант (предыдущий находил только суммы квадратов элементов). уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялисьdim a(3, 3)randomize timerp = 1for i = 1 to 3    for j = 1 to 3        a(i, j) = int(rnd * 5)        print a(i, j);         s = s + a(i, j) ^ 2    next j    p = p * s    printnext iprintprint "p="; p2  dim a(10)randomize timerp = 1for i = 1 to 10    a(i) = int(rnd * 20) - 10    print a(i); " ";     if a(i) > o then        s = s + a(i)        p = p * a(i)        n = n + 1    end ifnext iprintprint "s="; sprint "p="; pprint "kol-vo="; n