1) const n=5; m=4; var a:array[1..n,1..m] of integer; i,j:integer; b1,b2:boolean; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; writeln; end; for i:=1 to n do begin b1:=true; b2:=true; for j:=2 to m do begin if a[i,j-1]>=a[i,j] then b1:=false; if a[i,j-1]<=a[i,j] then b2:=false; end; if b1 then writeln('В(о) ',i,' строке последовательность возрастающая'); if b2 then writeln('В(о) ',i,' строке последовательность убывающая'); end; end.
2) В постановке задачи есть неопределенность. Какой (какие) индекс (ы) должен быть степенью двойки - хотя бы один или оба?
3) const n=5; m=4; var 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(100); write(a[i,j]:4); end; writeln; end; k:=0; for i:=1 to n do for j:=1 to m do if a[i,j] mod 7 = 0 then k:=k+1; writeln('k = ',k); end.
c = []
for i in a:
if i in b:
c.append(i)