Program aaa; var A: array[1..100,1..100] of integer; n,k,r,c,x: integer; i,j: byte; begin randomize; writeln ('Введите N, K, R, C'); readln (n,k,c,r); x:=0; for i:=1 to n do begin for j:=1 to n do begin writeln ('Введите ',j,'-е число ',i,'-ой строки'); readln (A[i,j]); //или можно ввести рандомно: A[i,j]:=random(0,1); if ((i>(r-k)) and (i<=r) and (j>(c-k)) and (j<=c) and (A[i,j]=1)) then x:=x+1 end end; writeln; // в следующем цикле выводится весь массив для наглядности // его можно просто убрать если не нужен for i:=1 to n do begin for j:=1 to n do begin write (A[i,j]:3); end; writeln end; writeln; writeln (x) end.
Генетическая информация определяет морфологическое строение, рост, развитие, обмен веществ, психический состав, предрасположенность к заболеваниям и генетические пороки организма. Реализация генетической информации происходит в процессе синтеза белковых молекул с трех типов РНК: информационной (иРНК) (её также называют матричной РНК, мРНК), транспортной (тРНК) и рибосомальной (рРНК). При этом генетическая информация копируется с матрицы ДНК на мРНК в ходе транскрипции, а затем мРНК используется как матрица для синтеза белков в ходе трансляции.
