Бесполезная информация , мешающая восприятию полезной

Информационный шум -это ответ

Сколько дней в году? -25 336 478 255 14 1 2 3 5 963 14 365 5 4 4 4 7822555 -

Const n = 15 declare sub km30 (a% k) dim a%(n), b%(n) cls randomize timer print "a("; n; "): "; for i = 1 to n a%(i) = rnd * n print a%(i); next i print call km30(a% k) print "b("; n; "): "; for i = 1 to n b%(i) = rnd * n print b%(i); next i call km30(b% k2) if k > k2 then z = 1 else z = 0 end if print , "z = "; z end sub km30 (a% k) for i = 1 to n if a%(i) mod 3 = 0 then k = k + 1 end if next i end sub пример работы программы: a( 15 ):   0  3  0  14  10  15  8  14  3  8  6  11  11  15  6 b( 15 ):   1  1  1  5  3  5  10  6  3  9  14  8  5  14  2 z =  1

A: array[1..n,1..m] of integer; i,j,k: integer; begin randomize; writeln('оценки: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(4)+2;     write(a[i,j]: 4);   end;   writeln;   end; k: =0; for i: =1 to n do   if (a[i,1]=2)or(a[i,2]=2)or(a[i,3]=2) then k: =k+1; writeln('количество двоечников = ',k); end. пример: оценки:     4   5   4     2   5   5     4   4   5     5   2   4     2   2   4 количество двоечников = 3