Const n = 10; var x:array[1..n,1..n] of integer; i,j,k,xmin: integer; begin Randomize; Writeln('Исходный массив'); xmin:=32767; for i := 1 to n do begin for j := 1 to n do begin k:= Random(1001); x[i,j]:=k; Write(x[i,j]:5); if (k mod 2=0) and (k mod 3<>0) then if xmin>k then xmin:=k end; Writeln end; Writeln('Минимальное четное, не кратное 3: ',xmin) end.
CLS RANDOMIZE TIMER INPUT "N = ", N DIM D%(N) PRINT "D("; N; "):"; K = 0 FOR i = 1 TO N D%(i) = RND * (2 * N + 1) - N PRINT " "; D%(i); NEXT i PRINT INPUT "T = ", T FOR i = 1 TO N IF D%(i) = T THEN K = K + 1 END IF NEXT i PRINT "K = "; K END
2)
CLS RANDOMIZE TIMER DIM D%(14), C%(14) PRINT "D(14):"; K = 0 FOR i = 1 TO 14 D%(i) = RND * 41 - 20 PRINT " "; D%(i); IF D%(i) < 7 THEN K = K + 1 C%(K) = D%(i) END IF NEXT i PRINT PRINT "C("; K; "):"; FOR i = 1 TO K PRINT " "; C%(i); NEXT i END
Вот , держи и сохрани себе )