В какой строке указаны только текстовые редакторы? Блокнот, MS Word, Power Point MS Word, Paint, Python MS Word, Word Pad, Блокнот MS Word, Word Pad, Power Point Х Укажите соответствие
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.
Const n=10;m=8; var a:array[1..n,1..m]of integer; b:array[1..m]of integer; i,j,min:integer; begin for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(100); write(a[i,j]:4); end; end; writeln; for j:=1 to m do begin min:=a[i,1]; for i:=1 to n do if a[i,j]<min then min:=a[i,j]; b[j]:=min; end; for i:=1 to m do write(b[i]:4); end.
в 3 строке это точно стопудово